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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_check_8.f90] - Blame information for rev 801

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


! { dg-do compile }
! { dg-options "-fcheck=pointer" }
!
! PR 46809: [OOP] ICE with -fcheck=pointer for CLASS IS
!
! Contributed by Salvatore Filippone 
 
  type t
  end type t
 
contains
 
  subroutine sub(a)
    class(t) :: a
    select type (a)
      class is (t)
        print *, 'Hi there'
    end select
  end subroutine
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fcheck=pointer" }`
3			`!`
4			`! PR 46809: [OOP] ICE with -fcheck=pointer for CLASS IS`
5			`!`
6			`! Contributed by Salvatore Filippone`
7
8			`type t`
9			`end type t`
10
11			`contains`
12
13			`subroutine sub(a)`
14			`class(t) :: a`
15			`select type (a)`
16			`class is (t)`
17			`print *, 'Hi there'`
18			`end select`
19			`end subroutine`
20
21			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_check_8.f90] - Blame information for rev 801