* [Committed] PR fortran/69395 -- Correct error condition
@ 2018-03-16 19:22 Steve Kargl
0 siblings, 0 replies; only message in thread
From: Steve Kargl @ 2018-03-16 19:22 UTC (permalink / raw)
To: fortran, gcc-patches
The following patch fixes essentially and off-by-one
in the error condition. Committed as obvious.
2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/69395
* decl.c (merge_array_spec): Correct the error condition.
2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/69395
* gfortran.dg/pr69395.f90: Add test for max dimensions
Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c (revision 258581)
+++ gcc/fortran/decl.c (working copy)
@@ -871,7 +871,7 @@ merge_array_spec (gfc_array_spec *from, gfc_array_spec
}
}
- if (to->rank + to->corank >= GFC_MAX_DIMENSIONS)
+ if (to->rank + to->corank > GFC_MAX_DIMENSIONS)
{
gfc_error ("Sum of array rank %d and corank %d at %C exceeds maximum "
"allowed dimensions of %d",
Index: gcc/testsuite/gfortran.dg/pr69395.f90
===================================================================
--- gcc/testsuite/gfortran.dg/pr69395.f90 (revision 258580)
+++ gcc/testsuite/gfortran.dg/pr69395.f90 (working copy)
@@ -1,5 +1,6 @@
! { dg-do compile }
! { dg-options "-fcoarray=single" }
program p
+real, dimension(1,2,1,2,1,2,1,2), codimension[1,2,1,2,1,2,*] :: y
real, dimension(1,2,1,2,1,2,1,2), codimension[1,2,1,2,1,2,1,*] :: z ! { dg-error "allowed dimensions" }
end
--
Steve
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2018-03-16 19:22 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2018-03-16 19:22 [Committed] PR fortran/69395 -- Correct error condition 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).