diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-05-05 14:01:38 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-05-05 14:01:38 +0000 |
| commit | ddf8ce2dac389784930c7cc479a5d43ab21f2506 (patch) | |
| tree | 1179936b5bb8a899dbbce518e28a407fe9795743 /gcc/fortran/decl.c | |
| parent | 7146eedf3d00f55721320a27ce99d3def1f78fac (diff) | |
| download | gcc-ddf8ce2dac389784930c7cc479a5d43ab21f2506.tar.gz | |
2013-05-05 Tobias Burnus <burnus@net-b.de>
PR fortran/57141
* decl.c (gfc_match_null): Permit use-associated
NULL intrinsic.
2013-05-05 Tobias Burnus <burnus@net-b.de>
PR fortran/57141
* gfortran.dg/null_8.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@198609 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 0187911ad20..6ae51e2db7a 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1710,6 +1710,7 @@ gfc_match_null (gfc_expr **result) gfc_intrinsic_symbol (sym); if (sym->attr.proc != PROC_INTRINSIC + && !(sym->attr.use_assoc && sym->attr.intrinsic) && (!gfc_add_procedure(&sym->attr, PROC_INTRINSIC, sym->name, NULL) || !gfc_add_function (&sym->attr, sym->name, NULL))) return MATCH_ERROR; |