blob: bfc1b368f46ba0b8ea4a12b9358d38bddfe4a8c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
! { dg-do compile }
! { dg-options "-O2" }
!
! PR fortran/54884
!
! Check that get_key_len is not optimized away as it
! is used in a publicly visible specification expression.
!
module m
private
public :: foo
interface foo
module procedure bar
end interface foo
contains
pure function mylen()
integer :: mylen
mylen = 42
end function mylen
pure function myotherlen()
integer :: myotherlen
myotherlen = 99
end function myotherlen
subroutine bar(x)
character(len=mylen()) :: x
character :: z2(myotherlen())
call internal(x)
block
character(len=myotherlen()) :: z
z = "abc"
x(1:5) = z
end block
x(6:10) = intern_func()
contains
function intern_func()
character(len=myotherlen()) :: intern_func
intern_func = "zuzu"
end function intern_func
subroutine internal(y)
character(len=myotherlen()) :: y
y = "abc"
end subroutine internal
end subroutine bar
end module m
! { dg-final { scan-assembler-not "__m_MOD_myotherlen" } }
! { dg-final { scan-assembler "__m_MOD_bar" } }
! { dg-final { scan-assembler "__m_MOD_mylen" } }
|
