diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-03-26 08:39:24 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-03-26 08:39:24 +0100 |
| commit | 9d45e848d02e71c11420ec49630281e9a29c89b8 (patch) | |
| tree | fe661a06323372541ebf55f8f6add7c487096b6e /gcc/fortran | |
| parent | 4493b1c1ad7e2b2a60ad70563b81f51173115471 (diff) | |
| download | gcc-9d45e848d02e71c11420ec49630281e9a29c89b8.zip gcc-9d45e848d02e71c11420ec49630281e9a29c89b8.tar.gz gcc-9d45e848d02e71c11420ec49630281e9a29c89b8.tar.bz2 | |
Fortran: Fix intrinsic null() handling [PR99651]
gcc/fortran/ChangeLog:
PR fortran/99651
* intrinsic.c (gfc_intrinsic_func_interface): Set
attr.proc = PROC_INTRINSIC if FL_PROCEDURE.
gcc/testsuite/ChangeLog:
PR fortran/99651
* gfortran.dg/null_11.f90: New test.
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index e68eff8..17fd92e 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -5071,6 +5071,11 @@ got_specific: sym->attr.intrinsic = 1; sym->attr.flavor = FL_PROCEDURE; } + if (sym->attr.flavor == FL_PROCEDURE) + { + sym->attr.function = 1; + sym->attr.proc = PROC_INTRINSIC; + } if (!sym->module) gfc_intrinsic_symbol (sym); |