diff options
author | Patrick J Volkerding <volkerdi@slackware.com> | 2022-06-11 01:56:19 +0000 |
---|---|---|
committer | Eric Hameleers <alien@slackware.com> | 2022-06-11 07:00:11 +0200 |
commit | fc0c0fd79b7d1b26b943062e3ed31327e01829cd (patch) | |
tree | 0d840f743d3d53e4492b4d4e0e0369a0c7ec4f98 /source/d/gcc/patches/gfortran.deferred-shape-vs-assumed-shape.patch | |
parent | 4932eebc956b5ec8edf05adfe2443d4671278b6f (diff) | |
download | current-fc0c0fd79b7d1b26b943062e3ed31327e01829cd.tar.gz current-fc0c0fd79b7d1b26b943062e3ed31327e01829cd.tar.xz |
Sat Jun 11 01:56:19 UTC 202220220611015619
a/kernel-firmware-20220610_7b71b75-noarch-1.txz: Upgraded.
a/kernel-generic-5.18.3-x86_64-1.txz: Upgraded.
a/kernel-huge-5.18.3-x86_64-1.txz: Upgraded.
a/kernel-modules-5.18.3-x86_64-1.txz: Upgraded.
d/gcc-12.1.0-x86_64-1.txz: Upgraded.
d/gcc-brig-11.3.0-x86_64-1.txz: Removed.
d/gcc-g++-12.1.0-x86_64-1.txz: Upgraded.
d/gcc-gdc-12.1.0-x86_64-1.txz: Upgraded.
d/gcc-gfortran-12.1.0-x86_64-1.txz: Upgraded.
d/gcc-gnat-12.1.0-x86_64-1.txz: Upgraded.
d/gcc-go-12.1.0-x86_64-1.txz: Upgraded.
d/gcc-objc-12.1.0-x86_64-1.txz: Upgraded.
d/kernel-headers-5.18.3-x86-1.txz: Upgraded.
d/libtool-2.4.7-x86_64-2.txz: Rebuilt.
Recompiled to update embedded GCC version number.
k/kernel-source-5.18.3-noarch-1.txz: Upgraded.
x/libX11-1.8.1-x86_64-1.txz: Upgraded.
xap/blueman-2.2.5-x86_64-1.txz: Upgraded.
isolinux/initrd.img: Rebuilt.
kernels/*: Upgraded.
usb-and-pxe-installers/usbboot.img: Rebuilt.
Diffstat (limited to 'source/d/gcc/patches/gfortran.deferred-shape-vs-assumed-shape.patch')
-rw-r--r-- | source/d/gcc/patches/gfortran.deferred-shape-vs-assumed-shape.patch | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/source/d/gcc/patches/gfortran.deferred-shape-vs-assumed-shape.patch b/source/d/gcc/patches/gfortran.deferred-shape-vs-assumed-shape.patch deleted file mode 100644 index f695b969e..000000000 --- a/source/d/gcc/patches/gfortran.deferred-shape-vs-assumed-shape.patch +++ /dev/null @@ -1,40 +0,0 @@ -[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 - |