URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [allocatable_scalar_3.f90] - Blame information for rev 437

Go to most recent revision | 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	302	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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [allocatable_scalar_3.f90] - Blame information for rev 437