b417161ad0
When inside a WHERE construct, the array constructor should be generated within an hlfir.exactly_once region. Fixes #130532
21 lines
661 B
Fortran
21 lines
661 B
Fortran
! RUN: flang -fc1 -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
program main
|
|
call test06()
|
|
print *,'pass'
|
|
end program main
|
|
|
|
subroutine test06()
|
|
type ty1
|
|
integer ,allocatable :: a(:,:,:)
|
|
end type ty1
|
|
type(ty1) :: str(1)
|
|
integer ,allocatable :: b(:,:,:)
|
|
allocate(str(1)%a(1,1,1),b(1,1,1))
|
|
b=1
|
|
write(6,*) "b = ", b
|
|
write(6,*) "reshape((/(b,jj=1,1)/),(/1,1,1/)) = ", reshape((/(b,jj=1,1)/),(/1,1,1/))
|
|
where ((/.true./)) str=(/(ty1(reshape((/(b,jj=1,1)/),(/1,1,1/))),ii=1,1)/)
|
|
! CHECK: hlfir.exactly_once : !hlfir.expr<1x!fir.type<_QFtest06Tty1{a:!fir.box<!fir.heap<!fir.array<?x?x?xi32>>>}>>
|
|
end subroutine test06
|