2 ! { dg-options "-fdump-tree-original" }
3 ! PR fortran/105954 - ICE in gfc_element_size, at fortran/target-memory.cc:132
4 ! Contributed by G.Steinmetz
7 use iso_c_binding
, only
: c_float
, c_sizeof
9 integer, parameter :: n
= -99
14 real(c_float
) :: b(3,7:n
)
18 integer, parameter :: k
= storage_size(d
)
19 integer, parameter :: m
= sizeof(d
)
20 integer, parameter :: l
= c_sizeof(e
)
26 ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "original" } }