diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-09-10 14:45:46 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-09-10 14:45:46 +0000 |
| commit | fb7c40dde327fe2729855d1472ed019f6b2e5547 (patch) | |
| tree | 630a3fc9f49e22d62788c42fa946f8ce4cf9230a /gcc | |
| parent | 5b28efbbf4abec11f013f4e76f5b55e2974737cf (diff) | |
| download | gcc-fb7c40dde327fe2729855d1472ed019f6b2e5547.zip gcc-fb7c40dde327fe2729855d1472ed019f6b2e5547.tar.gz gcc-fb7c40dde327fe2729855d1472ed019f6b2e5547.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/c_assoc_2.f03 | 2 | ||||
| -rw-r--r-- | 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 <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 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 |