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:
parent
d2f3024f27
commit
b26b100076
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue