Re: Syntax check for IMPLICIT statement

"James Van Buskirk" <not_valid@xxxxxxxxxxx> wrote in message
news:w8GdnfQgK-Ic8ojVnZ2dnUVZ_qCunZ2d@xxxxxxxxxxxxxx

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 report,
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


.

Relevant Pages