[Bug fortran/61881] New: ICE in gfc_conv_intrinsic_to_class with assumed-rank CLASS(*)

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 61881
           Summary: ICE in gfc_conv_intrinsic_to_class with assumed-rank
                    CLASS(*)
           Product: gcc
           Version: 4.10.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: burnus at gcc dot gnu.org
                CC: pault at gcc dot gnu.org

The following code uses assumed-rank and CLASS(*) and ICEs. Such a code might
get used for GCC's OpenACC implementation.


foo.f90:3:0: internal compiler error: in fold_convert_loc, at fold-const.c:2074
 call test(4)
 ^
0x87556c fold_convert_loc(unsigned int, tree_node*, tree_node*)
        ../../gcc/fold-const.c:2074
0x69f570 gfc_conv_intrinsic_to_class(gfc_se*, gfc_expr*, gfc_typespec)
        ../../gcc/fortran/trans-expr.c:592



program test
  implicit none
  call test(4)
  call test([4])
contains
  subroutine test(a)
    class(*), dimension(..) :: a
  end subroutine test
end