public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/44529] New: [F03] array allocation with SOURCE
@ 2010-06-13 20:52 janus at gcc dot gnu dot org
2010-06-13 21:38 ` [Bug fortran/44529] " janus at gcc dot gnu dot org
` (2 more replies)
0 siblings, 3 replies; 7+ messages in thread
From: janus at gcc dot gnu dot org @ 2010-06-13 20:52 UTC (permalink / raw)
To: gcc-bugs
First example:
integer, allocatable :: a(:), b(:)
allocate (a, source = b)
end
This is rejected with
allocate (a, source = b)
1
Error: Array specification required in ALLOCATE statement at (1)
although it is valid (cf. F08:C633).
Second example:
integer, allocatable :: a(:)
integer :: b(1:3)
allocate (a, source = b)
end
This results in an ICE.
--
Summary: [F03] array allocation with SOURCE
Product: gcc
Version: 4.6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: janus at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44529
^ permalink raw reply [flat|nested] 7+ messages in thread* [Bug fortran/44529] [F03] array allocation with SOURCE
2010-06-13 20:52 [Bug fortran/44529] New: [F03] array allocation with SOURCE janus at gcc dot gnu dot org
@ 2010-06-13 21:38 ` janus at gcc dot gnu dot org
2010-06-15 9:40 ` burnus at gcc dot gnu dot org
2010-08-29 18:06 ` burnus at gcc dot gnu dot org
2 siblings, 0 replies; 7+ messages in thread
From: janus at gcc dot gnu dot org @ 2010-06-13 21:38 UTC (permalink / raw)
To: gcc-bugs
------- Comment #1 from janus at gcc dot gnu dot org 2010-06-13 21:38 -------
(In reply to comment #0)
> First example:
>
>
> integer, allocatable :: a(:), b(:)
> allocate (a, source = b)
> end
>
>
> This is rejected with
>
> allocate (a, source = b)
> 1
> Error: Array specification required in ALLOCATE statement at (1)
>
> although it is valid (cf. F08:C633).
The error message is fixed with this patch:
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 160678)
+++ gcc/fortran/resolve.c (working copy)
@@ -6449,10 +6449,10 @@ resolve_allocate_expr (gfc_expr *e, gfc_code *code
if (pointer || (dimension == 0 && codimension == 0))
goto success;
- /* Make sure the next-to-last reference node is an array specification. */
-
- if (ref2 == NULL || ref2->type != REF_ARRAY || ref2->u.ar.type == AR_FULL
- || (dimension && ref2->u.ar.dimen == 0))
+ /* F08:C633. */
+ if (!code->expr3
+ && (ref2 == NULL || ref2->type != REF_ARRAY || ref2->u.ar.type ==
AR_FULL
+ || (dimension && ref2->u.ar.dimen == 0)))
{
gfc_error ("Array specification required in ALLOCATE statement "
"at %L", &e->where);
But then this test case also ICEs:
c0a.f90:2:0: internal compiler error: in gfc_array_allocate, at
fortran/trans-array.c:4056
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44529
^ permalink raw reply [flat|nested] 7+ messages in thread* [Bug fortran/44529] [F03] array allocation with SOURCE
2010-06-13 20:52 [Bug fortran/44529] New: [F03] array allocation with SOURCE janus at gcc dot gnu dot org
2010-06-13 21:38 ` [Bug fortran/44529] " janus at gcc dot gnu dot org
@ 2010-06-15 9:40 ` burnus at gcc dot gnu dot org
2010-08-29 18:06 ` burnus at gcc dot gnu dot org
2 siblings, 0 replies; 7+ messages in thread
From: burnus at gcc dot gnu dot org @ 2010-06-15 9:40 UTC (permalink / raw)
To: gcc-bugs
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Keywords| |rejects-valid
Last reconfirmed|0000-00-00 00:00:00 |2010-06-15 09:39:50
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44529
^ permalink raw reply [flat|nested] 7+ messages in thread* [Bug fortran/44529] [F03] array allocation with SOURCE
2010-06-13 20:52 [Bug fortran/44529] New: [F03] array allocation with SOURCE janus at gcc dot gnu dot org
2010-06-13 21:38 ` [Bug fortran/44529] " janus at gcc dot gnu dot org
2010-06-15 9:40 ` burnus at gcc dot gnu dot org
@ 2010-08-29 18:06 ` burnus at gcc dot gnu dot org
2 siblings, 0 replies; 7+ messages in thread
From: burnus at gcc dot gnu dot org @ 2010-08-29 18:06 UTC (permalink / raw)
To: gcc-bugs
------- Comment #2 from burnus at gcc dot gnu dot org 2010-08-29 18:05 -------
Cf. also PR 45440
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44529
^ permalink raw reply [flat|nested] 7+ messages in thread
[parent not found: <bug-44529-4@http.gcc.gnu.org/bugzilla/>]
end of thread, other threads:[~2013-07-25 12:17 UTC | newest]
Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-06-13 20:52 [Bug fortran/44529] New: [F03] array allocation with SOURCE janus at gcc dot gnu dot org
2010-06-13 21:38 ` [Bug fortran/44529] " janus at gcc dot gnu dot org
2010-06-15 9:40 ` burnus at gcc dot gnu dot org
2010-08-29 18:06 ` burnus at gcc dot gnu dot org
[not found] <bug-44529-4@http.gcc.gnu.org/bugzilla/>
2011-02-06 12:19 ` tkoenig at gcc dot gnu.org
2012-02-17 9:42 ` burnus at gcc dot gnu.org
2013-07-25 12:17 ` burnus at gcc dot gnu.org
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).