Fortran : ICE in resolve_fl_procedure PR95708
authorMark Eggleston <markeggleston@gcc.gnu.org>
Mon, 22 Jun 2020 12:35:01 +0000 (13:35 +0100)
committerMark Eggleston <markeggleston@gcc.gnu.org>
Mon, 22 Jun 2020 15:28:55 +0000 (16:28 +0100)
commit647340c92a042e8e6f7d004637f07060dbde49c0
tree3fd542338fe2a07f87480f6d7b60dba5575edb1d
parent9302421e71e85b4d3766a534ed9e1c4ae1e7a6ca
Fortran  : ICE in resolve_fl_procedure PR95708

Now issues an error "Intrinsic procedure 'num_images' not
allowed in PROCEDURE" instead of an ICE.

2020-06-22  Steven G. Kargl  <kargl@gcc.gnu.org>

gcc/fortran/

PR fortran/95708
* intrinsic.c (add_functions): Replace CLASS_INQUIRY with
CLASS_TRANSFORMATIONAL for intrinsic num_images.
(make_generic): Replace ACTUAL_NO with ACTUAL_YES for
intrinsic team_number.
* resolve.c (resolve_fl_procedure): Check pointer ts.u.derived
exists before using it.

2020-06-22  Mark Eggleston  <markeggleston@gcc.gnu.org>

gcc/testsuite/

PR fortran/95708
* gfortran.dg/pr95708.f90: New test.
gcc/fortran/intrinsic.c
gcc/fortran/resolve.c
gcc/testsuite/gfortran.dg/pr95708.f90 [new file with mode: 0644]