blob: b19cdde05c6aed30941eae581d75c922df72d116 (
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
|
! PR ipa/58290
! { dg-do compile }
! { dg-options "-O1 -fipa-pta" }
MODULE pr58290
TYPE b
CHARACTER(10) :: s = ''
END TYPE b
TYPE c
TYPE(b) :: d
END TYPE c
TYPE h
INTEGER, DIMENSION(:), POINTER :: b
END TYPE h
CONTAINS
SUBROUTINE foo(x, y)
LOGICAL, INTENT(IN) :: x
TYPE(c), INTENT(INOUT) :: y
END SUBROUTINE
FUNCTION bar (g) RESULT (z)
TYPE(h), INTENT(IN) :: g
TYPE(c) :: y
CALL foo (.TRUE., y)
z = SIZE (g%b)
END FUNCTION bar
SUBROUTINE baz (g)
TYPE(h), INTENT(INOUT) :: g
INTEGER :: i, j
j = bar(g)
DO i = 1, j
ENDDO
END SUBROUTINE baz
END MODULE
|
