From patchwork Fri Sep 3 19:57:25 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Daniel Kraft X-Patchwork-Id: 63710 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 17EFEB7125 for ; Sat, 4 Sep 2010 05:52:20 +1000 (EST) Received: (qmail 20711 invoked by alias); 3 Sep 2010 19:52:13 -0000 Received: (qmail 20692 invoked by uid 22791); 3 Sep 2010 19:52:12 -0000 X-SWARE-Spam-Status: No, hits=-1.3 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_LOW, SPF_HELO_PASS, URIBL_RHS_DOB X-Spam-Check-By: sourceware.org Received: from tatiana.utanet.at (HELO tatiana.utanet.at) (213.90.36.46) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 03 Sep 2010 19:52:06 +0000 Received: from patricia.xoc.tele2net.at ([213.90.36.9]) by tatiana.utanet.at with esmtp (Exim 4.71) (envelope-from ) id 1OrcIp-0001vk-Ey; Fri, 03 Sep 2010 21:51:59 +0200 Received: from d83-187-160-25.cust.tele2.at ([83.187.160.25] helo=[10.0.0.18]) by patricia.xoc.tele2net.at with esmtpa (Exim 4.71) (envelope-from ) id 1OrcIp-0006At-1h; Fri, 03 Sep 2010 21:51:59 +0200 Message-ID: <4C815325.1030504@domob.eu> Date: Fri, 03 Sep 2010 21:57:25 +0200 From: Daniel Kraft User-Agent: Thunderbird 2.0.0.0 (X11/20070425) MIME-Version: 1.0 To: Fortran List , gcc-patches Subject: [Patch, Fortran, committed] PR fortran/45525: Adapt error message Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Hi, I just committed the attached patch as obvious (and also approved by Mikael in the PR). Revision 163840. Yours, Daniel 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" }