Patchwork [Fortran,committed] PR fortran/45525: Adapt error message

login
register
mail settings
Submitter Daniel Kraft
Date Sept. 3, 2010, 7:57 p.m.
Message ID <4C815325.1030504@domob.eu>
Download mbox | patch
Permalink /patch/63710/
State New
Headers show

Comments

Daniel Kraft - Sept. 3, 2010, 7:57 p.m.
Hi,

I just committed the attached patch as obvious (and also approved by 
Mikael in the PR).  Revision 163840.

Yours,
Daniel

Patch

Index: gcc/testsuite/gfortran.dg/dummy_procedure_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/dummy_procedure_1.f90	(revision 163812)
+++ gcc/testsuite/gfortran.dg/dummy_procedure_1.f90	(working copy)
@@ -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" }