Re: Syntax check for IMPLICIT statement

On Sun, 27 Apr 2008 17:22:05 -0600, "James Van Buskirk" <not_valid@xxxxxxxxxxx> wrote:

-|In attempting to create a digestible version of a program that gives
-|gfortran an ICE and causes incorrect output for ifort, the critical
-|factor for both seems to be a line such as:
-|
-| implicit character(len=*,kind=kind('A')) (Q)
-|
-|In the sense that if the LEN is changed to 3 both ifort and gfortran
-|get happy with the code. Is this syntactically incorrect or simply
-|obscure enough that it didn't get sufficient testing on either
-|compiler?
-|
-|C:\gfortran\clf\startest>type startest.f90
-|module mod
-| implicit character(len=*,kind=kind('A')) (Q)
-| parameter(Q1 = 'Test Me!')
-| parameter(Q2 = 'Test Me Too!')
-| contains
-| subroutine sub(Q3)
-| write(*,*) '#'//Q3//'#'
-| end subroutine sub
-|end module mod
-|
-|program startest
-| use mod
-| implicit none
-| write(*,*) '#'//Q1//'#'
-| write(*,*) '#'//Q2//'#'
-| call sub('Test Me More!')
-|end program startest
-|
-|C:\gfortran\clf\startest>gfortran startest.f90 -o startest
-|
-|C:\gfortran\clf\startest>startest
-| #Test Me!#
-| #Test Me Too!#
-| #Test Me More!#
Just for info, g95 also gives the above three-lines of results.

Skip Knoble

.

Relevant Pages