diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/result_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/result_1.f90 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/result_1.f90 b/gcc/testsuite/gfortran.dg/result_1.f90 index 162ffaf5857..96d2a1febe5 100644 --- a/gcc/testsuite/gfortran.dg/result_1.f90 +++ b/gcc/testsuite/gfortran.dg/result_1.f90 @@ -14,5 +14,10 @@ namelist /s/ a,b,c ! { dg-error "attribute conflicts" } end function function h() result(t) -type t ! { dg-error "attribute conflicts" } +type t ! { dg-error "GENERIC attribute conflicts with RESULT attribute" } +end type t ! { dg-error "Expecting END FUNCTION statement" } +end function + +function i() result(t) +type t ! { dg-error "GENERIC attribute conflicts with RESULT attribute" } end function |