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

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 ee50f3d287e4a256230ff04d77ea9f7fc9893343..9dbf11dfbf4180bef46a7d11ec8a30fd4e21218e 100644 (file)
--- 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 275e88eadc38d7d3e19b6fac5686c0e775d8c74f..fe6e5a9439a491bb5041ab61adfcc1831fe08e0c 100644 (file)
--- 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 5421a363f10aad5328cd858909d831572949aa8c..8a7fe736bc5f90df08c15e25e81dbdec5babc61e 100644 (file)
--- 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