"James Van Buskirk" <not_valid@[EMAIL PROTECTED]
> wrote in message
news:w8GdnfQgK-Ic8ojVnZ2dnUVZ_qCunZ2d@[EMAIL PROTECTED]
> Still haven't made it to the mythic ICE but I have another stumbling
> block:
At last I have attained that bug which so many of its brethren have
sacrificed their lives to conceal:
C:\gfortran\clf\startest>type bug4a.f90
module mykinds
implicit none
integer, parameter :: ck1 = kind('x')
end module mykinds
module mergetest_c1
use mykinds
implicit character(len=*,kind=ck1) (Q)
private
public mergetest
interface mergetest
module procedure mergetest_template
end interface mergetest
contains
subroutine mergetest_template(Qtsource, Qfsource)
write(*,'(a,1x,a)') Qtsource, Qfsource
end subroutine mergetest_template
end module mergetest_c1
program bug4
use mykinds
use mergetest_c1
implicit none
call mergetest(ck1_'Hello', ck1_'world')
end program bug4
C:\gfortran\clf\startest>gfortran bug4a.f90 -obug4a
bug4a.f90:12: internal compiler error: in create_function_arglist, at
fortran/tr
ans-decl.c:1488
Please submit a full bug re****t,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html>
for instructions.
GAME OVER (for now...)
--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end
|
