Re: Syntax check for IMPLICIT statement

On Mon, 28 Apr 2008 01:10:52 -0600, "James Van Buskirk" <not_valid@xxxxxxxxxxx> wrote:

-|"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
This one works correctly using g95

Skip

-|
-|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...)

.