[Testsuite patch]: more fortran tests

[Uttam Pawar]

Hi,

Here are more fortran tests.
Any feedback is appreciated.

Thanks,

- Uttam

2005-11-10  Uttam Pawar  <uttamp@us.ibm.com>

    * gfortran.dg/assign_7.f90: New test.
    * gfortran.dg/do_2.f90: New test.
    * gfortran.dg/hollerith_f95_2.f90: New test.
    * gfortran.dg/pause.f90: New test.
    * gfortran.dg/real_do_2.f90: New test.
    * gfortran.dg/real_do_3.f90: New test.

diff -urN gcc.testsuite/gfortran.dg/assign_7.f90
gcc_mine.testsuite/gfortran.dg/assign_7.f90
--- gcc.testsuite/gfortran.dg/assign_7.f90  1969-12-31
16:00:00.000000000 -0800
+++ gcc_mine.testsuite/gfortran.dg/assign_7.f90 2005-11-10
21:41:43.000000000 -0800
@@ -0,0 +1,13 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+
+subroutine s1 (a)
+integer a
+assign 777 to a         ! { dg-error "Obsolete: ASSIGN statement" "" }
+go to a                 ! { dg-error "Obsolete: Assigned GOTO
statement" "" }
+777 continue
+end
+program test
+call s1 (1)
+end
+
diff -urN gcc.testsuite/gfortran.dg/do_2.f90
gcc_mine.testsuite/gfortran.dg/do_2.f90
--- gcc.testsuite/gfortran.dg/do_2.f90  1969-12-31 16:00:00.000000000
-0800
+++ gcc_mine.testsuite/gfortran.dg/do_2.f90 2005-11-11
07:36:24.000000000 -0800
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! Test for block name at END DO if used in the DO construct
+program test_do
+  integer i,j
+
+  j = 0
+xyz:  do i = 1, 2
+    j = j + 1
+  end do            ! { dg-error "Expected block name" "" }
+end program test_do ! { dg-error "Expecting END DO statement" "" }
diff -urN gcc.testsuite/gfortran.dg/hollerith_f95_2.f90
gcc_mine.testsuite/gfortran.dg/hollerith_f95_2.f90
--- gcc.testsuite/gfortran.dg/hollerith_f95_2.f90   1969-12-31
16:00:00.000000000 -0800
+++ gcc_mine.testsuite/gfortran.dg/hollerith_f95_2.f90  2005-11-10
21:51:00.000000000 -0800
@@ -0,0 +1,6 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! Test for H edit descriptor
+program test_H_editdescriptor
+i = 2Hab   ! { dg-error "Extension: Hollerith constant" "" }
+end program test_H_editdescriptor
diff -urN gcc.testsuite/gfortran.dg/pause.f90
gcc_mine.testsuite/gfortran.dg/pause.f90
--- gcc.testsuite/gfortran.dg/pause.f90 1969-12-31 16:00:00.000000000
-0800
+++ gcc_mine.testsuite/gfortran.dg/pause.f90    2005-11-10
21:24:41.000000000 -0800
@@ -0,0 +1,6 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! PAUSE statement not allowed in fortran95
+program test_pause
+      pause   ! { dg-error "Obsolete: PAUSE statement" "" }
+end program test_pause
diff -urN gcc.testsuite/gfortran.dg/real_do_2.f90
gcc_mine.testsuite/gfortran.dg/real_do_2.f90
--- gcc.testsuite/gfortran.dg/real_do_2.f90 1969-12-31
16:00:00.000000000 -0800
+++ gcc_mine.testsuite/gfortran.dg/real_do_2.f90    2005-11-10
21:12:44.000000000 -0800
@@ -0,0 +1,17 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! Test REAL type iterators in DO loops
+program real_do_2
+  real x
+  double precision y
+  integer n
+
+  n = 0
+  do x = 1.0, 0.1 ! { dg-error "Obsolete: REAL DO loop iterator" "" }
+    n = n + 1
+  end do
+  n = 0
+  do y = 1.0, 0.1 ! { dg-error "Obsolete: REAL DO loop iterator"  ""}
+    n = n + 1
+  end do
+end program
diff -urN gcc.testsuite/gfortran.dg/real_do_3.f90
gcc_mine.testsuite/gfortran.dg/real_do_3.f90
--- gcc.testsuite/gfortran.dg/real_do_3.f90 1969-12-31
16:00:00.000000000 -0800
+++ gcc_mine.testsuite/gfortran.dg/real_do_3.f90    2005-11-10
21:10:43.000000000 -0800
@@ -0,0 +1,11 @@
+! { dg-do run }
+! Test REAL type iterators in DO loops
+program real_do_2
+  double precision y
+  integer n
+
+  n = 0
+  do y = 1.0, 0.1 ! { dg-warning "Obsolete: REAL DO loop iterator" ""}
+    n = n + 1
+  end do
+end program