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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [alloc_comp_basics_3.f90] - Blame information for rev 302

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 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

powered by: WebSVN 2.1.0

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