diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2022-01-14 21:48:15 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2022-01-14 21:48:15 +0100 |
| commit | 70e24c9682ddbcade0301665bccd8e7f928d0082 (patch) | |
| tree | f65d5e14f75cc52122848566c97b514172399bcb /gcc/fortran/intrinsic.c | |
| parent | c76b3bc55b4603d38cc948f4076264af5c0b95aa (diff) | |
| download | gcc-70e24c9682ddbcade0301665bccd8e7f928d0082.zip gcc-70e24c9682ddbcade0301665bccd8e7f928d0082.tar.gz gcc-70e24c9682ddbcade0301665bccd8e7f928d0082.tar.bz2 | |
Fortran: always reject alternate return specifier as argument of intrinsics
The intrinsics MOVE_ALLOC, C_F_POINTER, and C_F_PROCPOINTER require
deferred checks of part of their actual argument types which may be of
"any" type. This however excludes alternate return specifiers which
therefore must be unconditionally rejected for all standard intrinsics.
gcc/fortran/ChangeLog:
PR fortran/99256
* intrinsic.c: Do not check formal argument type when checking
arguments of intrinsics for alternate return specifiers.
gcc/testsuite/ChangeLog:
PR fortran/99256
* gfortran.dg/altreturn_11.f90: New test.
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index a7ecdb4..9746cd5 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -4420,7 +4420,7 @@ do_sort: FOR_EACH_VEC_ELT (dummy_args, idx, f) { a = ordered_actual_args[idx]; - if (a && a->label != NULL && f->ts.type) + if (a && a->label != NULL) { gfc_error ("ALTERNATE RETURN not permitted at %L", where); return false; |