URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_proc_14.f03] - Blame information for rev 715

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE
!
! Contributed by Janus Weil 
 
module m
 
implicit none
 
type :: t
contains
  procedure :: foo, bar, baz
end type
 
contains
 
  subroutine foo (this)
    class(t) :: this
  end subroutine
 
  real function bar (this)
    class(t) :: this
  end function
 
  subroutine baz (this, par)
    class(t) :: this
    integer :: par
  end subroutine
 
end
 
! { dg-final { cleanup-modules "m" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 40117: [OOP][F2008] Type-bound procedure: allow list after PROCEDURE`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`module m`
8
9			`implicit none`
10
11			`type :: t`
12			`contains`
13			`procedure :: foo, bar, baz`
14			`end type`
15
16			`contains`
17
18			`subroutine foo (this)`
19			`class(t) :: this`
20			`end subroutine`
21
22			`real function bar (this)`
23			`class(t) :: this`
24			`end function`
25
26			`subroutine baz (this, par)`
27			`class(t) :: this`
28			`integer :: par`
29			`end subroutine`
30
31			`end`
32
33			`! { dg-final { cleanup-modules "m" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_proc_14.f03] - Blame information for rev 715