[Bug fortran/59228] New: ICE with assume type and ASYNCHRONOUS

[valeryweber at hotmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59228

            Bug ID: 59228
           Summary: ICE with assume type and ASYNCHRONOUS
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: valeryweber at hotmail dot com

Dear All

The following wrong code is producing an ICE with gcc version 4.9.0 20131119.
Should gcc report an error rank mismatch instead?
Valery


cat gcc_1.f90 
MODULE mp
  IMPLICIT NONE
  interface
     subroutine test(base)
       TYPE(*), ASYNCHRONOUS :: base
     end subroutine Test
  end interface
CONTAINS
  SUBROUTINE foo ( data )
    REAL( kind=8 ), DIMENSION( : ), ASYNCHRONOUS :: data
    CALL test ( data )
  END SUBROUTINE foo
END MODULE mp

gfortran-trunk -c gcc_1.f90 
f951: internal compiler error: Segmentation fault
0x9eabbf crash_signal
    ../../trunk-src/gcc/toplev.c:334
0x57148e compare_parameter
    ../../trunk-src/gcc/fortran/interface.c:2091
0x57148e compare_actual_formal
    ../../trunk-src/gcc/fortran/interface.c:2589
0x571d23 gfc_procedure_use(gfc_symbol*, gfc_actual_arglist**, locus*)
    ../../trunk-src/gcc/fortran/interface.c:3292
0x5bd966 resolve_specific_s0
    ../../trunk-src/gcc/fortran/resolve.c:3185
0x5bd966 resolve_specific_s
    ../../trunk-src/gcc/fortran/resolve.c:3204
0x5bd966 resolve_call
    ../../trunk-src/gcc/fortran/resolve.c:3360
0x5c2a47 resolve_code
    ../../trunk-src/gcc/fortran/resolve.c:9925
0x5c45ce resolve_codes
    ../../trunk-src/gcc/fortran/resolve.c:14546
0x5c44d7 resolve_codes
    ../../trunk-src/gcc/fortran/resolve.c:14532
0x5b53a5 gfc_resolve
    ../../trunk-src/gcc/fortran/resolve.c:14574
0x5b53a5 gfc_resolve(gfc_namespace*)
    ../../trunk-src/gcc/fortran/resolve.c:14560
0x5aabfa gfc_parse_file()
    ../../trunk-src/gcc/fortran/parse.c:4672
0x5e87c5 gfc_be_parse_file
    ../../trunk-src/gcc/fortran/f95-lang.c:188
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.