blob: 67b50ec0d85efdee880753ea94cc6d240755e0da (
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) call abort()
if (z /= "") call abort()
end
|