blob: 5ee927b20e2f8058d05b1671ee163911231519fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
!
! PR 78392: ICE in gfc_trans_auto_array_allocation, at fortran/trans-array.c:5979
!
! Contributed by Janus Weil <janus@gcc.gnu.org>
! Error message update with patch for PR fortran/83633
!
module mytypes
implicit none
contains
pure integer function get_i ()
get_i = 13
end function
end module
program test
use mytypes
implicit none
integer, dimension(get_i()) :: x ! { dg-error "array with nonconstant bounds" }
print *, size (x) ! { dg-error "has no IMPLICIT type" }
end
|
