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 + + 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 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