From fb7c40dde327fe2729855d1472ed019f6b2e5547 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sat, 10 Sep 2016 14:45:46 +0000 Subject: [PATCH] re PR fortran/77507 (gfortran rejects keyworded calls to procedures from intrinsic modules) 2016-09-10 Steven G. Kargl PR fortran/77507 * gfortran.dg/c_assoc_2.f03: Update for r240050 * gfortran.dg/c_assoc_4.f90: Ditto. From-SVN: r240073 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/c_assoc_2.f03 | 2 +- gcc/testsuite/gfortran.dg/c_assoc_4.f90 | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ee50f3d..9dbf11d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2016-09-10 Steven G. Kargl + + 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 PR C/71602 diff --git a/gcc/testsuite/gfortran.dg/c_assoc_2.f03 b/gcc/testsuite/gfortran.dg/c_assoc_2.f03 index 275e88e..fe6e5a9 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 5421a36..8a7fe73 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 -- 2.7.4