blob: c819f5e449a42d973373726e3cbf9a561d9e5f00 (
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
|
! { dg-do compile }
! Tests the fix for PR28630, in which a contained,
! derived type function caused an ICE if its definition
! was both host and use associated.
!
! Contributed by Mark Hesselink <mhesseli@alumni.caltech.edu>
!
MODULE types
TYPE :: t
INTEGER :: i
END TYPE
END MODULE types
MODULE foo
USE types
CONTAINS
FUNCTION bar (x) RESULT(r)
USE types
REAL, INTENT(IN) :: x
TYPE(t) :: r
r = t(0)
END FUNCTION bar
END MODULE
LOGICAL FUNCTION foobar (x)
USE foo
REAL, INTENT(IN) :: x
TYPE(t) :: c
foobar = .FALSE.
c = bar (x)
END FUNCTION foobar
|
