[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/duplicate_type_2.f90

Index: gcc/gcc/testsuite/gfortran.dg/duplicate_type_2.f90
diff --git a/gcc/gcc/testsuite/gfortran.dg/duplicate_type_2.f90 b/gcc/gcc/testsuite/gfortran.dg/duplicate_type_2.f90
index 5b86dc6e775bc060a86db47beedbc1dd05e5fd90..0fd9258fe8098e7b77b0558f0fe65339118a31f5 100644
--- a/gcc/gcc/testsuite/gfortran.dg/duplicate_type_2.f90
+++ b/gcc/gcc/testsuite/gfortran.dg/duplicate_type_2.f90
@@ -7,14 +7,14 @@
 
 INTEGER FUNCTION foo ()
   IMPLICIT NONE
-  INTEGER :: foo ! { dg-warning "basic type of" }
-  INTEGER :: foo ! { dg-warning "basic type of" }
+  INTEGER :: foo ! { dg-error "basic type of" }
+  INTEGER :: foo ! { dg-error "basic type of" }
   foo = 42
 END FUNCTION foo
 
 INTEGER FUNCTION bar () RESULT (x)
   IMPLICIT NONE
-  INTEGER :: x ! { dg-warning "basic type of" }
+  INTEGER :: x ! { dg-error "basic type of" }
 
   INTEGER :: y
   INTEGER :: y ! { dg-error "basic type of" }