diff options
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/fortran/gfortran.h | 7 | ||||
-rw-r--r-- | gcc/fortran/interface.c | 4 |
2 files changed, 7 insertions, 4 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index c3fb6ed..912f5fb 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -178,9 +178,10 @@ enum gfc_intrinsic_op INTRINSIC_EQ_OS, INTRINSIC_NE_OS, INTRINSIC_GT_OS, INTRINSIC_GE_OS, INTRINSIC_LT_OS, INTRINSIC_LE_OS, INTRINSIC_NOT, INTRINSIC_USER, INTRINSIC_ASSIGN, INTRINSIC_PARENTHESES, - /* User defined derived type pseudo operator. */ - INTRINSIC_FORMATTED, INTRINSIC_UNFORMATTED, - GFC_INTRINSIC_END /* Sentinel */ + GFC_INTRINSIC_END, /* Sentinel */ + /* User defined derived type pseudo operators. These are set beyond the + sentinel so that they are excluded from module_read and module_write. */ + INTRINSIC_FORMATTED, INTRINSIC_UNFORMATTED }; /* This macro is the number of intrinsic operators that exist. diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 09f5a53..9a19fa7 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -115,7 +115,9 @@ fold_unary_intrinsic (gfc_intrinsic_op op) } -/* Return the operator depending on the DTIO moded string. */ +/* Return the operator depending on the DTIO moded string. Note that + these are not operators in the normal sense and so have been placed + beyond GFC_INTRINSIC_END in gfortran.h:enum gfc_intrinsic_op. */ static gfc_intrinsic_op dtio_op (char* mode) |