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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 44869: [OOP] Missing TARGET check - and wrong code or accepts-invalid?
!
! Contributed by Satish.BD 
 
  type :: test_case
  end type
 
  type :: test_suite
    type(test_case) :: list
  end type
 
contains
 
  subroutine sub(self)
    class(test_suite), intent(inout) :: self
    type(test_case), pointer :: tst_case
    tst_case => self%list       ! { dg-error "is neither TARGET nor POINTER" }
  end subroutine
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 44869: [OOP] Missing TARGET check - and wrong code or accepts-invalid?`
4			`!`
5			`! Contributed by Satish.BD`
6
7			`type :: test_case`
8			`end type`
9
10			`type :: test_suite`
11			`type(test_case) :: list`
12			`end type`
13
14			`contains`
15
16			`subroutine sub(self)`
17			`class(test_suite), intent(inout) :: self`
18			`type(test_case), pointer :: tst_case`
19			`tst_case => self%list ! { dg-error "is neither TARGET nor POINTER" }`
20			`end subroutine`
21
22			`end`

Browse

Tools

Subversion Repositories openrisc

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