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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
class_32.f90
blob
c388be42fc5da89b78dfcbab68408dde612c2d40
1
! { dg-do compile }
2
!
3
! PR 45827: [4.6 Regression] [OOP] mio_component_ref(): Component not found
4
!
5
! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
6
7
MODULE
m
8
9
TYPE
,
ABSTRACT
::
t
10
PRIVATE
11
INTEGER
::
n
12
CONTAINS
13
PROCEDURE
::
get
14
END TYPE
15
16
ABSTRACT
INTERFACE
17
SUBROUTINE
create
(
this
)
18
IMPORT t
19
CLASS
(
t
) ::
this
20
END SUBROUTINE
21
END INTERFACE
22
23
CONTAINS
24
25
FUNCTION
get
(
this
)
26
CLASS
(
t
) ::
this
27
REAL
,
DIMENSION
(
this
%
n
) ::
get
28
END FUNCTION
29
30
SUBROUTINE
destroy
(
this
)
31
CLASS
(
t
) ::
this
32
END SUBROUTINE
33
34
END MODULE
35
36
37
PROGRAM
p
38
USE
m
39
END