blob: e0ecc63b89f60973b5a72f8a3433b628f262fefd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do compile }
! Tests the fix for PR34429 in which function charlens that were
! USE associated would cause an error.
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
!
module m
integer, parameter :: strlen = 5
end module m
character(strlen) function test()
use m
test = 'A'
end function test
interface
character(strlen) function test()
use m
end function test
end interface
print *, test()
end
! { dg-final { cleanup-modules "m" } }
|
