[Bug fortran/99345] New: [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[Bug fortran/99345] New: [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[doko at debian dot org]

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

            Bug ID: 99345
           Summary: [11 Regression] ICE in
                    doloop_contained_procedure_code, at
                    fortran/frontend-passes.c:2464
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: doko at debian dot org
  Target Milestone: ---

seen with trunk 20210227, building the espresso package on x86_64-linux-gnu

mpif90 -g -O2 -ffile-prefix-map=/<<PKGBUILDDIR>>=. -fstack-protector-strong
-cpp -fallow-argument-mismatch -D__FFTW3 -D__MPI -D__S
CALAPACK   -I/<<PKGBUILDDIR>>//include -I/<<PKGBUILDDIR>>//FoX/finclude 
-I/<<PKGBUILDDIR>>//upflib -I/<<PKGBUILDDIR>>//Modules -I
/<<PKGBUILDDIR>>//FFTXlib -I/<<PKGBUILDDIR>>//LAXlib
-I/<<PKGBUILDDIR>>//UtilXlib -I/<<PKGBUILDDIR>>//FoX/finclude -I../../PW/src 
-I../../dft-d3 -I../../LR_Modules -c postahc.f90
f951: internal compiler error: in doloop_contained_procedure_code, at
fortran/frontend-passes.c:2464
0xb9fcda doloop_contained_procedure_code
        ../../src/gcc/fortran/frontend-passes.c:2464
0x1afc7e5 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../src/gcc/fortran/frontend-passes.c:5299
0x1afc91e gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../src/gcc/fortran/frontend-passes.c:5623
0x1b066c8 doloop_code
        ../../src/gcc/fortran/frontend-passes.c:2620
0x1afc7e5 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../src/gcc/fortran/frontend-passes.c:5299
0x1afc91e gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../src/gcc/fortran/frontend-passes.c:5623
0x1afc91e gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        ../../src/gcc/fortran/frontend-passes.c:5623
0x1afdd3b doloop_warn
        ../../src/gcc/fortran/frontend-passes.c:3052
0x1afdd96 gfc_run_passes(gfc_namespace*)
        ../../src/gcc/fortran/frontend-passes.c:156
0x1a2b069 gfc_resolve(gfc_namespace*)
        ../../src/gcc/fortran/resolve.c:17428
0x19ed811 gfc_resolve(gfc_namespace*)
        ../../src/gcc/fortran/resolve.c:17407
0x19ed811 resolve_all_program_units
        ../../src/gcc/fortran/parse.c:6290
0x19ed811 gfc_parse_file()
        ../../src/gcc/fortran/parse.c:6542
0x1a444c8 gfc_be_parse_file
        ../../src/gcc/fortran/f95-lang.c:212
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.

full build log at
https://people.debian.org/~doko/logs/20210228/filtered/gcc11/espresso_6.7-2_unstable_gcc11.log

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[marxin at gcc dot gnu.org]

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

Martin Liška <marxin at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |marxin at gcc dot gnu.org
             Status|UNCONFIRMED                 |WAITING
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2021-03-02

--- Comment #1 from Martin Liška <marxin at gcc dot gnu.org> ---
Can you please attach postahc.f90 file?

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[rguenth at gcc dot gnu.org]

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

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
   Target Milestone|---                         |11.0

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[doko at debian dot org]

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

--- Comment #2 from Matthias Klose <doko at debian dot org> ---
Created attachment 50298
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=50298&action=edit
source

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[dominiq at lps dot ens.fr]

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

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
One also needs the files generating the needed modules.

Does the code compiles with -fno-frontend-optimize?

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[doko at debian dot org]

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

--- Comment #4 from Matthias Klose <doko at debian dot org> ---
also seen with -fno-frontend-optimize

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[marxin at gcc dot gnu.org]

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

--- Comment #5 from Martin Liška <marxin at gcc dot gnu.org> ---
So yes, we'll need all the files loaded as modules.
@doko: Can you please tar the entire folder?

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[doko at debian dot org]

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

--- Comment #6 from Matthias Klose <doko at debian dot org> ---
now at https://people.debian.org/~doko/tmp/espresso-test.tar.xz

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[marxin at gcc dot gnu.org]

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

--- Comment #7 from Martin Liška <marxin at gcc dot gnu.org> ---
Thanks, but I can't see where the missing modules come from:

$ gcc postahc.f90 -c
postahc.f90:21:7:

   21 |   USE kinds,       ONLY : DP
      |       1
Fatal Error: Cannot open module file ‘kinds.mod’ for reading at (1): No such
file or directory
compilation terminated.

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464

[doko at debian dot org]

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

--- Comment #8 from Matthias Klose <doko at debian dot org> ---
updated the tarball to include the Modules dir

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 since r11-2578-g27eac9ee6137a6b5

[marxin at gcc dot gnu.org]

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

Martin Liška <marxin at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |NEW
                 CC|                            |tkoenig at gcc dot gnu.org
            Summary|[11 Regression] ICE in      |[11 Regression] ICE in
                   |doloop_contained_procedure_ |doloop_contained_procedure_
                   |code, at                    |code, at
                   |fortran/frontend-passes.c:2 |fortran/frontend-passes.c:2
                   |464                         |464 since
                   |                            |r11-2578-g27eac9ee6137a6b5

--- Comment #9 from Martin Liška <marxin at gcc dot gnu.org> ---
I've reduced that to:

$ cat x.f90
MODULE kinds
  INTEGER, PARAMETER :: DP = selected_real_kind(14,200)
  CONTAINS
    SUBROUTINE print_kind_info (stdout)
      INTEGER, INTENT(IN) :: stdout
      WRITE(stdout,'(/,T2,A,T78,A,2(/,T2,A,T75,I6),3(/,T2,A,T67,E14.8))') &
          kind('C')
    END SUBROUTINE print_kind_info
END MODULE kinds
USE kinds
  COMPLEX(DP), ALLOCATABLE :: selfen_upfan(:)
  DO iq = 1, nq
    CALL calc_upper_fan(iq, selfen_upfan)
  ENDDO  
  DO ik = 1, nk
    ENDDO
  CONTAINS
SUBROUTINE calc_upper_fan(iq, selfen_upfan)
  COMPLEX(DP)  selfen_upfan(nk)
  INTEGER recl
  INQUIRE(IOLENGTH=recl) ENDDO
END  
END 

$ gfortran x.f90 -c
f951: internal compiler error: in doloop_contained_procedure_code, at
fortran/frontend-passes.c:2464
0x656727 doloop_contained_procedure_code
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:2464
0x9f7d87 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5299
0x9f7eef gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5623
0x9f98ac doloop_code
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:2620
0x9f7d87 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5299
0x9f7eef gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5623
0x9f8f3f doloop_warn
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:3052
0x9f94af gfc_run_passes(gfc_namespace*)
        /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:156
0x90917e gfc_resolve(gfc_namespace*)
        /home/marxin/Programming/gcc/gcc/fortran/resolve.c:17428
0x90917e gfc_resolve(gfc_namespace*)
        /home/marxin/Programming/gcc/gcc/fortran/resolve.c:17401
0x8fabab resolve_all_program_units
        /home/marxin/Programming/gcc/gcc/fortran/parse.c:6290
0x8fabab gfc_parse_file()
        /home/marxin/Programming/gcc/gcc/fortran/parse.c:6542
0x94ec0f gfc_be_parse_file
        /home/marxin/Programming/gcc/gcc/fortran/f95-lang.c:212
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.

Started with r11-2578-g27eac9ee6137a6b5.

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 since r11-2578-g27eac9ee6137a6b5

[anlauf at gcc dot gnu.org]

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

--- Comment #10 from anlauf at gcc dot gnu.org ---
Further reduced:

  DO iq = 1, nq
    CALL calc_upper_fan (iq)
  ENDDO  
CONTAINS
  SUBROUTINE calc_upper_fan (iq)
    INTEGER :: iq
    INTEGER :: recl
    INQUIRE(IOLENGTH=recl) iq
  END
END

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 since r11-2578-g27eac9ee6137a6b5

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |tkoenig at gcc dot gnu.org

--- Comment #11 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Harald, thanks for reducing it!

[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 since r11-2578-g27eac9ee6137a6b5

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |FIXED
             Status|ASSIGNED                    |RESOLVED

--- Comment #12 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Fixed with https://gcc.gnu.org/g:52654036a544389fb66855bf3972f2a8013bec59 .

Thanks for the bug report!