This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/47195] [4.6 regression] New Fortran test failures
- From: "dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Thu, 6 Jan 2011 21:09:59 +0000
- Subject: [Bug fortran/47195] [4.6 regression] New Fortran test failures
- Auto-submitted: auto-generated
- References: <bug-47195-4@http.gcc.gnu.org/bugzilla/>
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