diff options
| author | Bud Davis <bdavis@gfortran.org> | 2005-02-23 10:45:07 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2005-02-23 10:45:07 +0000 |
| commit | b26b1000762e259de6b55a9b97b0da887591bfca (patch) | |
| tree | 2e128bed3e1e44820e08badc28b521f65963cc91 /gcc | |
| parent | d2f3024f27a56b871b98ff1d922d6f56d780b10b (diff) | |
| download | gcc-b26b1000762e259de6b55a9b97b0da887591bfca.zip gcc-b26b1000762e259de6b55a9b97b0da887591bfca.tar.gz gcc-b26b1000762e259de6b55a9b97b0da887591bfca.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_4.f90 | 24 |
2 files changed, 16 insertions, 12 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 108bea5..bf8b046 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/list_read_4.f90 b/gcc/testsuite/gfortran.dg/list_read_4.f90 index 8260ca2..fb1770e 100644 --- a/gcc/testsuite/gfortran.dg/list_read_4.f90 +++ b/gcc/testsuite/gfortran.dg/list_read_4.f90 @@ -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 |