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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 108bea59b684b895b2c442af52e1199d40369a83..bf8b0469a85c9671fcc9cf322f6fbfa01a2c6e91 100644 (file)
--- 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 8260ca2d934eb6f491f5892fa2cdca90e0e87fb2..fb1770e23031fe6358d0eded862d67452ec3c7c0 100644 (file)
--- 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