From 0edf45a3f9e04e29a2ad83d9fbd3075c5f8a00cb Mon Sep 17 00:00:00 2001 From: Daniel Kraft Date: Fri, 3 Sep 2010 21:50:44 +0200 Subject: [PATCH] re PR fortran/45525 (gfortran.dg/dummy_procedure_1.f90 failed) 2010-09-03 Daniel Kraft PR fortran/45525 * gfortran.dg/dummy_procedure_1.f90: Add -std=f2003 and adapt error. From-SVN: r163840 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/dummy_procedure_1.f90 | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + PR fortran/45525 + * gfortran.dg/dummy_procedure_1.f90: Add -std=f2003 and adapt error. + 2010-09-03 Thomas Koenig 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" } -- 2.7.4