* [Committed] PR fortran/80768 -- testcase
@ 2018-01-19 23:31 Steve Kargl
0 siblings, 0 replies; only message in thread
From: Steve Kargl @ 2018-01-19 23:31 UTC (permalink / raw)
To: fortran, gcc-patches
Jakub fixed a typo in
-----------------------------------------------------------------------
r250734 | jakub | 2017-07-31 02:32:02 -0700 (Mon, 31 Jul 2017) | 2 lines
* check.c (gfc_check_num_images): Fix a pasto.
but he seemed to be unaware of PR fortran/80768. I've converted
to code form the PR into a testcase. I plan to fix the typo
in the 6 and 7-branch as it prevents an ICE.
2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/80768
* gfortran.dg/num_images_1.f90: New test that tests fix in r250734.
Index: gcc/testsuite/gfortran.dg/num_images_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/num_images_1.f90 (nonexistent)
+++ gcc/testsuite/gfortran.dg/num_images_1.f90 (working copy)
@@ -0,0 +1,9 @@
+! { dg-do compile }
+! { dg-options "-fcoarray=single -std=f2008" }
+! PR Fortran/80768
+! Reported by Vittorio Zecca.
+program foo
+ implicit none
+ integer k5
+ k5 = num_images(failed=.false.) ! { dg-error "argument to NUM_IMAGES" }
+end program foo
--
Steve
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2018-01-19 23:31 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2018-01-19 23:31 [Committed] PR fortran/80768 -- testcase Steve Kargl
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).