blob: 243214bd9625760b7449c86fa22067deea43e670 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do run }
! Check that PR72698 is fixed.
! Contributed by Gerhard Steinmetz
module m
contains
integer function f()
f = 4
end
end
program p
use m
character(3), parameter :: c = 'abc'
character(:), allocatable :: z
allocate (z, source=repeat(c(2:1), f()))
if (len(z) /= 0) STOP 1
if (z /= "") STOP 2
end
|