diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9fae7d7..7f27219 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-09-03 Daniel Kraft <d@domob.eu> + + PR fortran/45525 + * gfortran.dg/dummy_procedure_1.f90: Add -std=f2003 and adapt error. + 2010-09-03 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/45159 diff --git a/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 b/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 index 57d4bc3..55107b6 100644 --- a/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 +++ b/gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-options "-std=f2003" } ! Test the patch for PR25098, where passing a variable as an ! actual argument to a formal argument that is a procedure ! went undiagnosed. @@ -37,7 +38,7 @@ end module m1 integer :: i, y, z i=1 call s1(i) ! { dg-error "Expected a procedure for argument" } - call s1(w) ! { dg-error "not allowed as an actual argument" } + call s1(w) ! { dg-error "used as actual argument" } call s1(x) ! explicit interface call s1(y) ! declared external call s1(z) ! { dg-error "Expected a procedure for argument" } |