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
PR target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
class_25.f03
blob
4c3563ccb6d97cfff0e8a16e80cc5337453b4aa7
1
! { dg-do run }
2
!
3
! PR [OOP] Compile-time errors on typed allocation and pointer function result assignment
4
!
5
! Contributed by Damian Rouson <damian@rouson.net>
6
7
module m
8
9
implicit none
10
11
type foo
12
end type
13
14
type ,extends(foo) :: bar
15
end type
16
17
contains
18
19
function new_bar()
20
class(foo) ,pointer :: new_bar
21
allocate(bar :: new_bar)
22
end function
23
24
end module
25
26
end