2009-04-09 Janus Weil <janus@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / external_procedures_1.f90

diff --git a/gcc/testsuite/gfortran.dg/external_procedures_1.f90 b/gcc/testsuite/gfortran.dg/external_procedures_1.f90
index 6e833be..de273d5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/external_procedures_1.f90
+++ b/gcc/testsuite/gfortran.dg/external_procedures_1.f90
@@ -1,14 +1,17 @@
 ! { dg-do compile }
+! { dg-options "-std=f95" }
+!
 ! This tests the patch for PR25024.
 
 ! PR25024 - The external attribute for subroutine a would cause an ICE.
   subroutine A ()
     EXTERNAL A  ! { dg-error "EXTERNAL attribute conflicts with SUBROUTINE" }
   END
-function ext (y)
+
+function ext (y)  ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
   real ext, y
-  external ext      ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
-  ext = y * y
+  external ext
+  !ext = y * y
 end function ext
 
 function ext1 (y)
@@ -24,18 +27,18 @@ program main
   interface
     function ext1 (y)
       real ext1, y
-      external ext1  ! { dg-error "Duplicate EXTERNAL attribute" }
-    end function ext1
+      external ext1
+    end function ext1  ! { dg-error "Duplicate EXTERNAL attribute" }
   end interface
   inval = 1.0
   print *, ext(inval)
   print *, ext1(inval)
   print *, inv(inval)
 contains
-  function inv (y)
+  function inv (y)  ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
     real inv, y
-    external inv     ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
-    inv = y * y * y
+    external inv
+    !inv = y * y * y
   end function inv
 end program main