3 ! PR 78392: ICE in gfc_trans_auto_array_allocation, at fortran/trans-array.c:5979
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
6 ! Error message update with patch for PR fortran/83633
11 pure
integer function get_i ()
19 integer, dimension(get_i()) :: x
! { dg-error "array with nonconstant bounds" }
20 print *, size (x
) ! { dg-error "has no IMPLICIT type" }