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
2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
typebound_proc_15.f03
blob
31d10ca27163cd8b4780ffc3f1f5f532f4fc2adf
1
! { dg-do compile }
2
! { dg-options "-std=f2003" }
3
!
4
! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE
5
!
6
! Contributed by Janus Weil <janus@gcc.gnu.org>
7
8
module m
9
10
implicit none
11
12
type :: t
13
contains
14
procedure :: foo
15
procedure :: bar, baz ! { dg-error "PROCEDURE list" }
16
end type
17
18
contains
19
20
subroutine foo (this)
21
class(t) :: this
22
end subroutine
23
24
subroutine bar (this)
25
class(t) :: this
26
end subroutine
27
28
subroutine baz (this)
29
class(t) :: this
30
end subroutine
31
32
end