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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! PR 40940: CLASS statement
4
!
5
! Contributed by Janus Weil 
6
 
7
use,intrinsic :: iso_c_binding
8
 
9
type t1
10
  integer :: comp
11
end type
12
 
13
type t2
14
  sequence
15
  real :: r
16
end type
17
 
18
type,bind(c) :: t3
19
  integer(c_int) :: i
20
end type
21
 
22
type :: t4
23
  procedure(absint), pointer :: p  ! { dg-error "Non-polymorphic passed-object dummy argument" }
24
end type
25
 
26
type :: t5
27
  class(t1) :: c  ! { dg-error "must be allocatable or pointer" }
28
end type
29
 
30
abstract interface
31
  subroutine absint(arg)
32
    import :: t4
33
    type(t4) :: arg
34
  end subroutine
35
end interface
36
 
37
type t6
38
  integer :: i
39
  class(t6), allocatable :: foo  ! { dg-error "must have the POINTER attribute" }
40
end type t6
41
 
42
 
43
class(t1) :: o1  ! { dg-error "must be dummy, allocatable or pointer" }
44
 
45
class(t2), pointer :: o2  ! { dg-error "is not extensible" }
46
class(t3), pointer :: o3  ! { dg-error "is not extensible" }
47
 
48
end
49
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.