[Bug fortran/47195] [4.6 regression] New Fortran test failures

[dominiq at lps dot ens.fr]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47195

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-01-06 21:09:58 UTC ---
> FAIL: gfortran.dg/interface_33.f90  -O  (test for excess errors)

This is fixed by the following patch:

--- ../_clean/gcc/testsuite/gfortran.dg/interface_33.f90    2011-01-06
17:59:52.000000000 +0100
+++ gcc/testsuite/gfortran.dg/interface_33.f90    2011-01-06 22:07:48.000000000
+0100
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 !
 ! PR fortran/33117, PR fortran/46478
 ! Procedures of a generic interface must be either
@@ -10,7 +10,7 @@
 !
 module m1
   interface gen
-    subroutine sub()            ! dg-error { "all SUBROUTINEs or all
FUNCTIONs" }
+    subroutine sub()            ! { dg-error "all SUBROUTINEs or all
FUNCTIONs" }
     end subroutine sub
     function bar()
       real :: bar
@@ -27,7 +27,7 @@ MODULE m2
     MODULE PROCEDURE subr_name
   END INTERFACE
 CONTAINS
-   LOGICAL FUNCTION func_name()  ! dg-error { "all SUBROUTINEs or all
FUNCTIONs" }
+   LOGICAL FUNCTION func_name()  ! { dg-error "all SUBROUTINEs or all
FUNCTIONs" }
    END FUNCTION
    SUBROUTINE subr_name()
    END SUBROUTINE