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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
!
! PR 40996: [F03] ALLOCATABLE scalars
!
! Contributed by Janus Weil 
 
implicit none
 
type :: t
  integer, allocatable :: i
end type
 
type(t)::x
 
allocate(x%i)
 
x%i = 13
print *,x%i
if (.not. allocated(x%i)) call abort()
 
deallocate(x%i)
 
if (allocated(x%i)) call abort()
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 40996: [F03] ALLOCATABLE scalars`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`implicit none`
8
9			`type :: t`
10			`integer, allocatable :: i`
11			`end type`
12
13			`type(t)::x`
14
15			`allocate(x%i)`
16
17			`x%i = 13`
18			`print *,x%i`
19			`if (.not. allocated(x%i)) call abort()`
20
21			`deallocate(x%i)`
22
23			`if (allocated(x%i)) call abort()`
24
25			`end`

Browse

Tools

Subversion Repositories openrisc

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