diff options
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 88ecc33..f83bab4 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -52,7 +52,8 @@ int ompws_flags; bool gfc_omp_is_optional_argument (const_tree decl) { - return (TREE_CODE (decl) == PARM_DECL && DECL_LANG_SPECIFIC (decl) + return (TREE_CODE (decl) == PARM_DECL + && DECL_LANG_SPECIFIC (decl) && GFC_DECL_OPTIONAL_ARGUMENT (decl)); } |