From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Sat, 10 Sep 2016 14:45:46 +0000 (+0000)
Subject: re PR fortran/77507 (gfortran rejects keyworded calls to procedures from intrinsic... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fb7c40dde327fe2729855d1472ed019f6b2e5547;p=gcc.git

re PR fortran/77507 (gfortran rejects keyworded calls to procedures from intrinsic modules)

2016-09-10  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77507
	* gfortran.dg/c_assoc_2.f03: Update for r240050
	* gfortran.dg/c_assoc_4.f90: Ditto.

From-SVN: r240073
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ee50f3d287e..9dbf11dfbf4 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2016-09-10  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/77507
+	* gfortran.dg/c_assoc_2.f03: Update error message for revision 240050
+	* gfortran.dg/c_assoc_4.f90: Ditto.
+
 2016-09-10  Tom de Vries  <tom@codesourcery.com>
 
 	PR C/71602
diff --git a/gcc/testsuite/gfortran.dg/c_assoc_2.f03 b/gcc/testsuite/gfortran.dg/c_assoc_2.f03
index 275e88eadc3..fe6e5a9439a 100644
--- a/gcc/testsuite/gfortran.dg/c_assoc_2.f03
+++ b/gcc/testsuite/gfortran.dg/c_assoc_2.f03
@@ -20,7 +20,7 @@ contains
        call abort()
     end if
 
-    if(.not. c_associated()) then ! { dg-error "Missing actual argument 'C_PTR_1' in call to 'c_associated'" }
+    if(.not. c_associated()) then ! { dg-error "Missing actual argument" }
        call abort()
     end if
 
diff --git a/gcc/testsuite/gfortran.dg/c_assoc_4.f90 b/gcc/testsuite/gfortran.dg/c_assoc_4.f90
index 5421a363f10..8a7fe736bc5 100644
--- a/gcc/testsuite/gfortran.dg/c_assoc_4.f90
+++ b/gcc/testsuite/gfortran.dg/c_assoc_4.f90
@@ -9,6 +9,6 @@ PROGRAM test
 
   TYPE (C_PTR) :: x, y
 
-  PRINT *, C_ASSOCIATED([x,y])  ! { dg-error "'C_PTR_1' argument of 'c_associated' intrinsic at .1. must be a scalar" }
+  PRINT *, C_ASSOCIATED([x,y])  ! { dg-error "'c_ptr_1' argument of 'c_associated' intrinsic at .1. must be a scalar" }
 
 END PROGRAM test