[Bug fortran/68152] New: ICE on declaring array result for function and entry

[Bug fortran/68152] New: ICE on declaring array result for function and entry

[gerhard.steinmetz.fortran@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68152

            Bug ID: 68152
           Summary: ICE on declaring array result for function and entry
           Product: gcc
           Version: 5.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Declaring both function result and entry result as array :


$ cat z1.f90
function f(n)
   integer, intent(in) :: n
   real :: f(n)
   real :: e(n)
entry e(n)
end


$ gfortran -g -O0 -Wall -fcheck=all z1.f90
f951: internal compiler error: gfc_compare_array_spec(): Array spec clobbered

[Bug fortran/68152] ICE on declaring array result for function and entry

[gerhard.steinmetz.fortran@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68152

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Detected with one single defect :


$ cat z2.f90
function f(n)
   integer, intent(in) :: n
   real :: f(n)
   real :: e
entry e(n)
end

$ gfortran -g -O0 -Wall -fcheck=all z2.f90
z2.f90:1:0:

 function f(n)
 1
Error: FUNCTION result f can't be an array in FUNCTION f at (1)

---

$ cat z3.f90
function f(n)
   integer, intent(in) :: n
   real :: f
   real :: e(n)
entry e(n)
end

$ gfortran -g -O0 -Wall -fcheck=all z3.f90
z3.f90:4:15:

    real :: e(n)
               1
Error: ENTRY result e can't be an array in FUNCTION f at (1)

[Bug fortran/68152] ICE on declaring array result for function and entry

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68152

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-10-29
     Ever confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed from 4.8 up to trunk (6.0). As for pr68151 I see a change of behavior
between
revisions r217961 (2014-11-22)

pr68152.f90:1:

function f(n)
1
Internal Error at (1):
gfc_compare_array_spec(): Array spec clobbered

and r218255 (2014-12-02)

f951: internal compiler error: gfc_compare_array_spec(): Array spec clobbered

f951: internal compiler error: Abort trap: 6
gfortran: internal compiler error: Abort trap: 6 (program f951)

[Bug fortran/68152] ICE on declaring array result for function and entry

[mikael at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68152

Mikael Morin <mikael at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |mikael at gcc dot gnu.org

--- Comment #3 from Mikael Morin <mikael at gcc dot gnu.org> ---
Seems to be accepted with recent master (14.0.0 20230814).

[Bug fortran/68152] ICE on declaring array result for function and entry

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68152

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |WAITING
      Known to fail|                            |10.5.0, 11.4.0, 7.5.0,
                   |                            |8.5.0, 9.5.0
      Known to work|                            |12.3.0, 13.2.0, 14.0

--- Comment #4 from anlauf at gcc dot gnu.org ---
Yep, seems fixed during 12-development.

As it is not marked as a regression, I would be fine if it were closed as
fixed.