repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* tree-loop-distribution.c (struct partition): New field recording
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
class_dummy_2.f03
blob
2078cd7a662aef75c689bf30aeaec5bd11d48d80
1
! { dg-do run }
2
!
3
! PR 45674: [OOP] Undefined references for extended types
4
!
5
! Contributed by Dietmar Ebner <dietmar.ebner@gmail.com>
6
7
module fails_mod
8
implicit none
9
type :: a_t
10
integer :: a
11
end type
12
type, extends(a_t) :: b_t
13
integer :: b
14
end type
15
contains
16
subroutine foo(a)
17
class(a_t) :: a
18
end subroutine foo
19
end module fails_mod
20
21
module fails_test
22
implicit none
23
contains
24
subroutine bar
25
use fails_mod
26
type(b_t) :: b
27
call foo(b)
28
end subroutine bar
29
end module fails_test
30
31
end