blob: 6e65e70aa036200ae6de057915df4838ced6741c (
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
|
! { dg-do compile }
! Just need to check if compiling and linking is possible.
!
! Check that the _vtab linking issue is resolved.
! Contributed by Damian Rouson <damian@sourceryinstitute.org>
module m
contains
subroutine fmt()
class(*), pointer :: arg
select type (arg)
type is (integer)
end select
end subroutine
end module
program p
call getSuffix()
contains
subroutine makeString(arg1)
class(*) :: arg1
select type (arg1)
type is (integer)
end select
end subroutine
subroutine getSuffix()
call makeString(1)
end subroutine
end
|
