* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
@ 2004-12-05 15:35 ` pinskia at gcc dot gnu dot org
2004-12-05 20:59 ` tobi at gcc dot gnu dot org
` (9 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-12-05 15:35 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-12-05 15:34 -------
Confirmed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2004-12-05 15:34:52
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
2004-12-05 15:35 ` [Bug fortran/18833] " pinskia at gcc dot gnu dot org
@ 2004-12-05 20:59 ` tobi at gcc dot gnu dot org
2005-04-08 12:20 ` pinskia at gcc dot gnu dot org
` (8 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: tobi at gcc dot gnu dot org @ 2004-12-05 20:59 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From tobi at gcc dot gnu dot org 2004-12-05 20:59 -------
The problem is that the substring reference is parsed as array reference. the
responsible code is this fragment from match_varspec in primary.c, after which
we unconditionally parse an array reference:
if (primary->symtree->n.sym->attr.dimension
|| (equiv_flag
&& gfc_peek_char () == '('))
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |tobi at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
2004-12-05 15:35 ` [Bug fortran/18833] " pinskia at gcc dot gnu dot org
2004-12-05 20:59 ` tobi at gcc dot gnu dot org
@ 2005-04-08 12:20 ` pinskia at gcc dot gnu dot org
2005-04-08 12:23 ` pinskia at gcc dot gnu dot org
` (7 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2005-04-08 12:20 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2005-04-08 12:20 -------
*** Bug 20828 has been marked as a duplicate of this bug. ***
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |federico dot carminati at
| |cern dot ch
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (2 preceding siblings ...)
2005-04-08 12:20 ` pinskia at gcc dot gnu dot org
@ 2005-04-08 12:23 ` pinskia at gcc dot gnu dot org
2005-07-22 12:44 ` jakub at redhat dot com
` (6 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2005-04-08 12:23 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2005-04-08 12:22 -------
Even though the code listed in comment #0 is F90/F95, you can generate a f77 code which causes the
same problem like so (from PR 20828):
PROGRAM BUG
CHARACTER CQALLC*1, CQLETT(1)*1
EQUIVALENCE (CQLETT(1),CQALLC(1:1))
END
--
What |Removed |Added
----------------------------------------------------------------------------
OtherBugsDependingO| |19292
nThis| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (3 preceding siblings ...)
2005-04-08 12:23 ` pinskia at gcc dot gnu dot org
@ 2005-07-22 12:44 ` jakub at redhat dot com
2005-07-22 14:01 ` federico dot carminati at cern dot ch
` (5 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: jakub at redhat dot com @ 2005-07-22 12:44 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From jakub at redhat dot com 2005-07-22 12:37 -------
I have partly written patch, but would like to understand whether ordering
matters or not.
Is the following all valid f77/f90/f95?
subroutine foo
character*8 c
character*1 d, f
dimension d(2), f(2)
character*4 e
equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
c='abcdefgh'
if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
end subroutine foo
subroutine bar
equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
character*8 c
character*1 d, f
dimension d(2), f(2)
character*4 e
c='abcdefgh'
if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
end subroutine bar
subroutine baz
character*8 c
character*1 d, f
character*4 e
equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
dimension d(2), f(2)
c='abcdefgh'
if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
end subroutine baz
subroutine another
dimension d(2), f(2)
equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
character*8 c
character*1 d, f
character*4 e
c='abcdefgh'
if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
end subroutine another
program main
call foo
call bar
call baz
call another
end program main
Can equivalence contain sym%name or is that forbidden?
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (4 preceding siblings ...)
2005-07-22 12:44 ` jakub at redhat dot com
@ 2005-07-22 14:01 ` federico dot carminati at cern dot ch
2005-07-22 14:07 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
` (4 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: federico dot carminati at cern dot ch @ 2005-07-22 14:01 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From federico dot carminati at cern dot ch 2005-07-22 13:42 -------
Subject: Re: ICE 'missing spec' on integer/char equivalence
Hello,
this is valid f90/95 code. Equivalence cannot contain sym%val as
far as I understand, but they can cointain derived types as long as
they are sequenced. Best regards, Fed
On 22 Jul 2005, at 14:37, jakub at redhat dot com wrote:
>
> ------- Additional Comments From jakub at redhat dot com
> 2005-07-22 12:37 -------
> I have partly written patch, but would like to understand whether
> ordering
> matters or not.
> Is the following all valid f77/f90/f95?
> subroutine foo
> character*8 c
> character*1 d, f
> dimension d(2), f(2)
> character*4 e
> equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
> c='abcdefgh'
> if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
> if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
> end subroutine foo
> subroutine bar
> equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
> character*8 c
> character*1 d, f
> dimension d(2), f(2)
> character*4 e
> c='abcdefgh'
> if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
> if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
> end subroutine bar
> subroutine baz
> character*8 c
> character*1 d, f
> character*4 e
> equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
> dimension d(2), f(2)
> c='abcdefgh'
> if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
> if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
> end subroutine baz
> subroutine another
> dimension d(2), f(2)
> equivalence (c(1:1), d(1)), (c(3:5), e(2:4)), (c(6:6), f(2))
> character*8 c
> character*1 d, f
> character*4 e
> c='abcdefgh'
> if (c.ne.'abcdefgh'.or.d(1).ne.'a'.or.d(2).ne.'b') call abort
> if (e.ne.'bcde'.or.f(1).ne.'e'.or.f(2).ne.'f') call abort
> end subroutine another
> program main
> call foo
> call bar
> call baz
> call another
> end program main
>
> Can equivalence contain sym%name or is that forbidden?
>
> --
>
>
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
>
> ------- You are receiving this mail because: -------
> You are on the CC list for the bug, or are watching someone who is.
>
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (5 preceding siblings ...)
2005-07-22 14:01 ` federico dot carminati at cern dot ch
@ 2005-07-22 14:07 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
2005-07-22 15:31 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
` (3 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: Tobias dot Schlueter at physik dot uni-muenchen dot de @ 2005-07-22 14:07 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From Tobias dot Schlueter at physik dot uni-muenchen dot de 2005-07-22 14:01 -------
Subject: Re: ICE 'missing spec' on integer/char equivalence
federico dot carminati at cern dot ch wrote:
> this is valid f90/95 code. Equivalence cannot contain sym%val as
> far as I understand, but they can cointain derived types as long as
> they are sequenced.
I'm not sure if oyu meant to say the right thing, so let me clarify: sym%name
and sym are allowed if sym is of a type with the sequence attribute.
I haven't yet looked over the posted program.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (6 preceding siblings ...)
2005-07-22 14:07 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
@ 2005-07-22 15:31 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
2005-08-06 10:01 ` cvs-commit at gcc dot gnu dot org
` (2 subsequent siblings)
10 siblings, 0 replies; 12+ messages in thread
From: Tobias dot Schlueter at physik dot uni-muenchen dot de @ 2005-07-22 15:31 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From Tobias dot Schlueter at physik dot uni-muenchen dot de 2005-07-22 14:49 -------
Subject: Re: ICE 'missing spec' on integer/char equivalence
federico dot carminati at cern dot ch wrote:
> ------- Additional Comments From federico dot carminati at cern dot ch 2005-07-22 14:20 -------
> Subject: Re: ICE 'missing spec' on integer/char equivalence
>
> Errr... I was a bit cryptic. You cannot put in an equivalence
> anything like sym%var, but you can put a whole
> derived data type, as long as it is sequenced. See the attached
> example. Regards, Fed
Ugh, yes, I agree with you (if you add "variable" after "derived data type"),
I misread the standard.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (7 preceding siblings ...)
2005-07-22 15:31 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
@ 2005-08-06 10:01 ` cvs-commit at gcc dot gnu dot org
2005-08-06 10:13 ` cvs-commit at gcc dot gnu dot org
2005-08-06 13:35 ` pinskia at gcc dot gnu dot org
10 siblings, 0 replies; 12+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2005-08-06 10:01 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2005-08-06 10:01 -------
Subject: Bug 18833
CVSROOT: /cvs/gcc
Module name: gcc
Changes by: jakub@gcc.gnu.org 2005-08-06 10:00:54
Modified files:
gcc/fortran : ChangeLog primary.c resolve.c
gcc/testsuite : ChangeLog
Added files:
gcc/testsuite/gfortran.dg: equiv_1.f90 equiv_2.f90
gcc/testsuite/gfortran.fortran-torture/execute: equiv_2.f90
equiv_3.f90
equiv_4.f90
Log message:
PR fortran/18833
PR fortran/20850
* primary.c (match_varspec): If equiv_flag, don't look at sym's
attributes, call gfc_match_array_ref up to twice and don't do any
substring or component processing.
* resolve.c (resolve_equivalence): Transform REF_ARRAY into
REF_SUBSTRING or nothing if needed. Check that substrings
don't have zero length.
* gfortran.dg/equiv_1.f90: New test.
* gfortran.dg/equiv_2.f90: New test.
* gfortran.fortran-torture/execute/equiv_2.f90: New test.
* gfortran.fortran-torture/execute/equiv_3.f90: New test.
* gfortran.fortran-torture/execute/equiv_4.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.512&r2=1.513
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/primary.c.diff?cvsroot=gcc&r1=1.32&r2=1.33
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/resolve.c.diff?cvsroot=gcc&r1=1.47&r2=1.48
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.5884&r2=1.5885
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/equiv_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/equiv_2.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/equiv_2.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/equiv_3.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/equiv_4.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (8 preceding siblings ...)
2005-08-06 10:01 ` cvs-commit at gcc dot gnu dot org
@ 2005-08-06 10:13 ` cvs-commit at gcc dot gnu dot org
2005-08-06 13:35 ` pinskia at gcc dot gnu dot org
10 siblings, 0 replies; 12+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2005-08-06 10:13 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2005-08-06 10:12 -------
Subject: Bug 18833
CVSROOT: /cvs/gcc
Module name: gcc
Branch: gcc-4_0-branch
Changes by: jakub@gcc.gnu.org 2005-08-06 10:12:42
Modified files:
gcc/fortran : ChangeLog primary.c resolve.c
gcc/testsuite : ChangeLog
Added files:
gcc/testsuite/gfortran.dg: equiv_1.f90 equiv_2.f90
gcc/testsuite/gfortran.fortran-torture/execute: equiv_2.f90
equiv_3.f90
equiv_4.f90
Log message:
PR fortran/18833
PR fortran/20850
* primary.c (match_varspec): If equiv_flag, don't look at sym's
attributes, call gfc_match_array_ref up to twice and don't do any
substring or component processing.
* resolve.c (resolve_equivalence): Transform REF_ARRAY into
REF_SUBSTRING or nothing if needed. Check that substrings
don't have zero length.
* gfortran.dg/equiv_1.f90: New test.
* gfortran.dg/equiv_2.f90: New test.
* gfortran.fortran-torture/execute/equiv_2.f90: New test.
* gfortran.fortran-torture/execute/equiv_3.f90: New test.
* gfortran.fortran-torture/execute/equiv_4.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.335.2.99&r2=1.335.2.100
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/primary.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.22.2.8&r2=1.22.2.9
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/resolve.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.34.2.12&r2=1.34.2.13
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.5084.2.318&r2=1.5084.2.319
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/equiv_1.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/equiv_2.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/equiv_2.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/equiv_3.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/equiv_4.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread
* [Bug fortran/18833] ICE 'missing spec' on integer/char equivalence
2004-12-04 20:30 [Bug fortran/18833] New: ICE 'missing spec' on integer/char equivalence Thomas dot Koenig at online dot de
` (9 preceding siblings ...)
2005-08-06 10:13 ` cvs-commit at gcc dot gnu dot org
@ 2005-08-06 13:35 ` pinskia at gcc dot gnu dot org
10 siblings, 0 replies; 12+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2005-08-06 13:35 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2005-08-06 13:35 -------
Fixed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
Resolution| |FIXED
Target Milestone|--- |4.0.2
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18833
^ permalink raw reply [flat|nested] 12+ messages in thread