diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/global_references_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/global_references_1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/global_references_1.f90 b/gcc/testsuite/gfortran.dg/global_references_1.f90 index 5e72dc9419b..cfff8b32c0b 100644 --- a/gcc/testsuite/gfortran.dg/global_references_1.f90 +++ b/gcc/testsuite/gfortran.dg/global_references_1.f90 @@ -23,7 +23,7 @@ function g(x) ! Global entity ! Function 'f' cannot be referenced as a subroutine. The previous ! definition is in 'line 12'. - call f(g) ! { dg-error "is already being used as a FUNCTION" } + call f(g) ! { dg-error "is already being used as a FUNCTION|Interface mismatch in global procedure" } end function g ! Error only appears once but testsuite associates with both lines. function h(x) ! { dg-error "is already being used as a FUNCTION" } @@ -59,7 +59,7 @@ END SUBROUTINE TT ! Function 'h' cannot be referenced as a subroutine. The previous ! definition is in 'line 29'. - call h (x) ! { dg-error "is already being used as a FUNCTION" } + call h (x) ! { dg-error "is already being used as a FUNCTION|Interface mismatch in global procedure" } ! PR23308=========================================================== ! Lahey - 2521-S: "SOURCE.F90", line 68: Intrinsic procedure name or |