Message ID | 87txa883fp.fsf@schwinge.name |
---|---|
State | New |
Headers | show |
diff --git gcc/fortran/ChangeLog.gomp gcc/fortran/ChangeLog.gomp index 1ee6a7c..aff672e 100644 --- gcc/fortran/ChangeLog.gomp +++ gcc/fortran/ChangeLog.gomp @@ -1,3 +1,8 @@ +2014-04-05 Tobias Burnus <burnus@net-b.de> + + PR fortran/60283 + * parse.c (decode_oacc_directive): Use gfc_unset_implicit_pure. + 2014-03-18 Thomas Schwinge <thomas@codesourcery.com> * f95-lang.c (DEF_FUNCTION_TYPE_10): Define. diff --git gcc/fortran/parse.c gcc/fortran/parse.c index a217c05..79bdc95 100644 --- gcc/fortran/parse.c +++ gcc/fortran/parse.c @@ -550,8 +550,7 @@ decode_oacc_directive (void) return ST_NONE; } - if (gfc_implicit_pure (NULL)) - gfc_current_ns->proc_name->attr.implicit_pure = 0; + gfc_unset_implicit_pure (NULL); old_locus = gfc_current_locus;