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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR fortran/26801
  implicit none
 
  integer :: i
  integer,target :: u
  logical :: l
  character(len=8) :: A
  type dt
    integer, pointer :: a => NULL()
  end type dt
  type(dt) :: obj(2)
 
  i = 2
  l = associated(obj(i)%a)
  write(A,*) l
  l = associated(obj(i)%a,u)
  print *, l
  write(A,*) l
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR fortran/26801`
3			`implicit none`
4
5			`integer :: i`
6			`integer,target :: u`
7			`logical :: l`
8			`character(len=8) :: A`
9			`type dt`
10			`integer, pointer :: a => NULL()`
11			`end type dt`
12			`type(dt) :: obj(2)`
13
14			`i = 2`
15			`l = associated(obj(i)%a)`
16			`write(A,*) l`
17			`l = associated(obj(i)%a,u)`
18			`print *, l`
19			`write(A,*) l`
20			`end`

Browse

Tools

Subversion Repositories openrisc

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