diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/duplicate_type_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/duplicate_type_2.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/duplicate_type_2.f90 b/gcc/testsuite/gfortran.dg/duplicate_type_2.f90 index 5b86dc6e775..0fd9258fe80 100644 --- a/gcc/testsuite/gfortran.dg/duplicate_type_2.f90 +++ b/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" } |