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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Test the patch for PR30202 in which the INTENT(OUT)
! caused an ICE.
!
! Contributed by Salvatore Filippone 
!
program class_scal_p
  implicit none
  type scal_p
    real, allocatable :: b(:)
  end type scal_p
  type(scal_p) :: pd
  call psb_geallv(pd%b)
contains
  subroutine psb_geallv(x)
    real, allocatable, intent(out) :: x(:)
  end subroutine psb_geallv
end program class_scal_p

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Test the patch for PR30202 in which the INTENT(OUT)`
3			`! caused an ICE.`
4			`!`
5			`! Contributed by Salvatore Filippone`
6			`!`
7			`program class_scal_p`
8			`implicit none`
9			`type scal_p`
10			`real, allocatable :: b(:)`
11			`end type scal_p`
12			`type(scal_p) :: pd`
13			`call psb_geallv(pd%b)`
14			`contains`
15			`subroutine psb_geallv(x)`
16			`real, allocatable, intent(out) :: x(:)`
17			`end subroutine psb_geallv`
18			`end program class_scal_p`

Browse

Tools

Subversion Repositories openrisc

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