diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_7.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/class_7.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_7.f03 b/gcc/testsuite/gfortran.dg/class_7.f03 index ed4eeba9340..99fbf6fc69b 100644 --- a/gcc/testsuite/gfortran.dg/class_7.f03 +++ b/gcc/testsuite/gfortran.dg/class_7.f03 @@ -16,6 +16,6 @@ class(t1), pointer :: c ! { dg-error "before it is defined" } select type (c) ! { dg-error "shall be polymorphic" } - type is (t1) ! { dg-error "Unexpected" } - end select ! { dg-error "Expecting END PROGRAM" } + type is (t0) + end select end |