blob: 1750ada124a0af8113cd0e38cbaaf3dc01423dc3 (
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
|
! { dg-do compile }
! PR35475 gfortran fails to compile valid code with ICE error in fold-const.c
! Test case from PR report added to avoid future regression
module modone
type mytype
real :: myvar
end type
end module
module modtwo
interface
subroutine subone(mytype_cur)
use modone
type (mytype) mytype_cur
end subroutine
end interface
contains
subroutine subtwo(mytype_cur)
use modone
type (mytype) mytype_cur,mytype_fin
mytype_fin=mytype_cur
return
end subroutine
subroutine subthree(mytype_cur)
use modone
type (mytype) mytype_cur
call subone(mytype_cur)
end subroutine
end module
|
