OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

list_read_4.f90: Change to f90 comments. 

2005-02-23  Bud Davis  <bdavis@gfortran.org>

        * gfortran.dg/list_read_4.f90: Change to f90 comments.

From-SVN: r95449
This commit is contained in:
Bud Davis 2005-02-23 10:45:07 +00:00 committed by Bud Davis
parent d2f3024f27
commit b26b100076
2 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2005-02-23 Bud Davis <bdavis@gfortran.org>
* gfortran.dg/list_read_4.f90: Change to f90 comments.
2005-02-23 Eric Botcazou <ebotcazou@libertysurf.fr>
PR ada/19902

24
gcc/testsuite/gfortran.dg/list_read_4.f90
View File

@ -1,25 +1,25 @@
C { dg-do run }
C Test of gfortran list directed read> check delimiters are correctly
C treated. Written in f77 so that g77 will run for comparison.
C
C f , e and i edit reads are terminated separately by read_real.c
C
C PThomas Jan 2005
C BDavis
! { dg-do run }
! Test of gfortran list directed read> check delimiters are correctly
! treated. Written in f77 so that g77 will run for comparison.
!
! f , e and i edit reads are terminated separately by read_real.c
!
! PThomas Jan 2005
! BDavis
program list_read_4
integer i(10),l(10),k,j
real x(10),y(10)
C expected results
! expected results
data y / 1.0,2.0,3.0,-1.0,-1.0,-1.0,4.0,4.0,99.0,99.0 /
data l /1,2,3,-1,-1,-1,4,4,99,99/
C put them in a file
! put them in a file
open (10,status="scratch")
write (10,*) " 1.0, 2.0 , 3.0,, 2* , 2*4.0 , 5*99.0"
write (10,*) " 1.0e0, 2.0e0 , 3.0e0,, 2* , 2*4.0e0 , 5*99.0e0"
write (10,*) " 1, 2 , 3,, 2* , 2*4 , 5*99"
write (10,*) " 1, 2 , 3,, 2* , 2*4 , 5*99"
rewind (10)
C
!
do k = 1,10
x(k) = -1.0
enddo
@ -41,7 +41,7 @@ C
if (x(k).ne.y(k)) call abort
x(k) = -1
end do
C integer
! integer
do k = 1,10
i(k) = -1
end do