2010-01-07 Tobias Burnus <burnus@net-b.de>

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

diff --git a/gcc/testsuite/gfortran.dg/implicit_5.f90 b/gcc/testsuite/gfortran.dg/implicit_5.f90
index c0573b6..fcfb694 100644 (file)
--- a/gcc/testsuite/gfortran.dg/implicit_5.f90
+++ b/gcc/testsuite/gfortran.dg/implicit_5.f90
@@ -1,22 +1,22 @@
 ! PR fortran/21729
 ! { dg-do compile }
-function f1 () ! { dg-error "has no IMPLICIT type" "f1" }
-       implicit none
+function f1 ()   ! { dg-error "has no IMPLICIT type" "f1" }
+   implicit none
 end function f1
 function f2 () result (r2) ! { dg-error "has no IMPLICIT type" "r2" }
-       implicit none
+   implicit none
 end function f2
-function f3 () ! { dg-error "has no IMPLICIT type" "f3" }
-       implicit none
-entry e3 ()    ! { dg-error "has no IMPLICIT type" "e3" }
+function f3 ()   ! { dg-error "has no IMPLICIT type" "f3" }
+   implicit none
+entry e3 ()   ! { dg-error "has no IMPLICIT type" "e3" }
 end function f3
 function f4 ()
-       implicit none
-       real f4
-entry e4 ()    ! { dg-error "has no IMPLICIT type" "e4" }
+   implicit none
+   real f4
+entry e4 ()   ! { dg-error "has no IMPLICIT type" "e4" }
 end function f4
-function f5 () ! { dg-error "has no IMPLICIT type" "f5" }
-       implicit none
+function f5 ()   ! { dg-error "has no IMPLICIT type" "f5" }
+   implicit none
 entry e5 ()
-       real e5
+   real e5
 end function f5