blob: c55da8fdb9d5db7acaf8ac464b277a0dc95f5970 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do run }
! PR 83224 - dependency mishandling with an array constructor
! Original test case by Urban Jost
program dusty_corner
implicit none
character(len=:),allocatable :: words(:)
words=[character(len=3) :: 'one', 'two']
words=[character(len=5) :: words, 'three']
if (any(words /= [ "one ", "two ", "three"])) STOP 1
end program dusty_corner
|
