mirror of
git://slackware.nl/current.git
synced 2025-01-22 07:27:59 +01:00
04ebdce888
a/shadow-4.8.1-x86_64-6.txz: Rebuilt. Include manpages for sulogin(8). a/util-linux-2.35.1-x86_64-5.txz: Rebuilt. ap/sysstat-12.3.3-x86_64-1.txz: Upgraded. d/bison-3.6-x86_64-1.txz: Upgraded. l/jansson-2.13.1-x86_64-1.txz: Upgraded. n/NetworkManager-1.24.0-x86_64-1.txz: Upgraded. n/fetchmail-6.4.5-x86_64-1.txz: Upgraded. testing/packages/PAM/shadow-4.8.1-x86_64-6_pam.txz: Rebuilt. Include manpages for sulogin(8). Use this version of /bin/su. testing/packages/PAM/util-linux-2.35.1-x86_64-5_pam.txz: Rebuilt. Don't use this version of /bin/su.
40 lines
1.4 KiB
Diff
40 lines
1.4 KiB
Diff
[PATCH] deferred-shape vs assumed-shape
|
|
Steve Kargl sgk@troutmask.apl.washington.edu
|
|
Wed Apr 1 20:04:43 GMT 2020
|
|
|
|
See
|
|
https://stackoverflow.com/questions/60972134/whats-wrong-with-the-following-fortran-code-gfortran-dtio-dummy-argument-at
|
|
|
|
Is A(:) a deferred-shape array or an assumed-shape array? The
|
|
answer of course depends on context.
|
|
|
|
This patch fixes the issue found at the above URL.
|
|
|
|
Index: gcc/fortran/interface.c
|
|
===================================================================
|
|
--- gcc/fortran/interface.c (revision 280157)
|
|
+++ gcc/fortran/interface.c (working copy)
|
|
@@ -4916,10 +4916,15 @@ check_dtio_arg_TKR_intent (gfc_symbol *fsym, bool type
|
|
|| ((type != BT_CLASS) && fsym->attr.dimension)))
|
|
gfc_error ("DTIO dummy argument at %L must be a scalar",
|
|
&fsym->declared_at);
|
|
- else if (rank == 1
|
|
- && (fsym->as == NULL || fsym->as->type != AS_ASSUMED_SHAPE))
|
|
- gfc_error ("DTIO dummy argument at %L must be an "
|
|
- "ASSUMED SHAPE ARRAY", &fsym->declared_at);
|
|
+ else if (rank == 1)
|
|
+ {
|
|
+ if (fsym->as == NULL
|
|
+ || !(fsym->as->type == AS_ASSUMED_SHAPE
|
|
+ || (fsym->as->type == AS_DEFERRED && fsym->attr.dummy
|
|
+ && !fsym->attr.allocatable && !fsym->attr.pointer)))
|
|
+ gfc_error ("DTIO dummy argument at %L must be an "
|
|
+ "ASSUMED-SHAPE ARRAY", &fsym->declared_at);
|
|
+ }
|
|
|
|
if (type == BT_CHARACTER && fsym->ts.u.cl->length != NULL)
|
|
gfc_error ("DTIO character argument at %L must have assumed length",
|
|
|
|
--
|
|
Steve
|
|
|