------- Comment #3 from dir at lanl dot gov  2006-05-22 14:58 -------
I grabbed one of the tests that failed and tried it with today's 4.2.0 version
and version 4.1.1 and it failed with the new and passed with the old -

[dranta:~/tests/gfortran-D] dir% gfortran -O1 -o write_logical
write_logical.f90
[dranta:~/tests/gfortran-D] dir% write_logical
At line 9 of file write_logical.f90
Fortran runtime error: Missing initial left parenthesis in format

[dranta:~/tests/gfortran-D] dir% cat write_logical.f90
! PR 14334, L edit descriptor does not work
!
!  this test uses L1 and L4 to print TRUE and FALSE
       logical true,false
       character*10 b
       true = .TRUE.
       false = .FALSE.
       b = ''
       write (b, '(L1)') true
       if (b(1:1) .ne. 'T') call abort

       b = ''
       write (b, '(L1)') false
       if (b(1:1) .ne. 'F') call abort

       b = ''
       write(b, '(L4)') true
       if (b(1:4) .ne. '   T') call abort

       b = ''
       write(b, '(L4)') false
       if (b(1:4) .ne. '   F') call abort
       end
[dranta:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin8.6.0
Configured with: ../gcc/configure --prefix=/Users/dir/gfortran
--enable-languages=c,f95
Thread model: posix
gcc version 4.2.0 20060522 (experimental)
[dranta:~/tests/gfortran-D] dir% set path =(~/gfortran4.1/bin $path)
[dranta:~/tests/gfortran-D] dir% gfortran -O1 -o write_logical
write_logical.f90
[dranta:~/tests/gfortran-D] dir% write_logical
[dranta:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin8.6.0
Configured with: ../gcc/configure --prefix=/Users/dir/gfortran4.1
--enable-languages=c,f95
Thread model: posix
gcc version 4.1.1 20060517 (prerelease)


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27683

Reply via email to