OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Steven G. Kargl 2016-09-10 14:45:46 +00:00
parent 5b28efbbf4
commit fb7c40dde3
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

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

2
gcc/testsuite/gfortran.dg/c_assoc_2.f03
View File

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

2
gcc/testsuite/gfortran.dg/c_assoc_4.f90
View File

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