blob: f5437883f9d79dd19f70b900a3ffd8886f32e14e (
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
|
! { dg-do compile }
! { dg-options "-fno-tree-fre -fno-tree-ccp -Og" }
program simplify_transfer
call pr30881 ()
contains
subroutine pr18769 ()
type t
end type t
end subroutine pr18769
subroutine pr30881 ()
INTEGER, PARAMETER :: K=1
I=TRANSFER(.TRUE.,K)
SELECT CASE(I)
CASE(TRANSFER(.TRUE.,K))
CASE(TRANSFER(.FALSE.,K))
STOP 2
CASE DEFAULT
STOP 3
END SELECT
END subroutine pr30881
subroutine pr31194 ()
end subroutine pr31194
subroutine pr31216 ()
END subroutine pr31216
subroutine pr31427 ()
END subroutine pr31427
end program simplify_transfer
|
