projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Imported Upstream version 4.8.1
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gfortran.dg
/
class_35.f90
1
! { dg-do run }
2
!
3
! PR 46313: [OOP] class container naming collisions
4
!
5
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6
7
module one
8
type two_three
9
end type
10
end module
11
12
module one_two
13
type three
14
end type
15
end module
16
17
use one
18
use one_two
19
class(two_three), allocatable :: a1
20
class(three), allocatable :: a2
21
22
if (same_type_as(a1,a2)) call abort()
23
24
end