diff options
| author | Daniel Kraft <d@domob.eu> | 2010-09-03 21:50:44 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2010-09-03 21:50:44 +0200 |
| commit | 0edf45a3f9e04e29a2ad83d9fbd3075c5f8a00cb (patch) | |
| tree | 9a635ac17051a670f1dbbd2627de10cc2496b29a /gcc | |
| parent | bb79486c5531faaa25c959607a56236c62c0d559 (diff) | |
| download | gcc-0edf45a3f9e04e29a2ad83d9fbd3075c5f8a00cb.zip gcc-0edf45a3f9e04e29a2ad83d9fbd3075c5f8a00cb.tar.gz gcc-0edf45a3f9e04e29a2ad83d9fbd3075c5f8a00cb.tar.bz2 | |
re PR fortran/45525 (gfortran.dg/dummy_procedure_1.f90 failed)
2010-09-03 Daniel Kraft <d@domob.eu>
PR fortran/45525
* gfortran.dg/dummy_procedure_1.f90: Add -std=f2003 and adapt error.
From-SVN: r163840
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" } |