repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
[C++ PATCH] Deprecate -ffriend-injection
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
constant_shape.f90
blob
c2eaf82f5ec7766a014b74fb25a9ddbea38fa279
1
! { dg-do compile }
2
!
3
! PR 78392: ICE in gfc_trans_auto_array_allocation, at fortran/trans-array.c:5979
4
!
5
! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7
module
mytypes
8
implicit none
9
contains
10
pure
integer function
get_i
()
11
get_i
=
13
12
end function
13
end module
14
15
program
test
16
use
mytypes
17
implicit none
18
integer
,
dimension
(
get_i
()) ::
x
! { dg-error "must have constant shape" }
19
print
*,
size
(
x
)
20
end