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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR fortran/41479
!
! Contributed by Juergen Reuter.
!
program main
 type :: container_t
    integer :: n = 42
    ! if the following line is omitted, the problem disappears
    integer, dimension(:), allocatable :: a
 end type container_t
 
 type(container_t) :: container
 
 if (container%n /= 42) call abort()
 if (allocated(container%a)) call abort()
 container%n = 1
 allocate(container%a(50))
 call init (container)
 if (container%n /= 42) call abort()
 if (allocated(container%a)) call abort()
contains
 subroutine init (container)
   type(container_t), intent(out) :: container
 end subroutine init
end program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/41479`
4			`!`
5			`! Contributed by Juergen Reuter.`
6			`!`
7			`program main`
8			`type :: container_t`
9			`integer :: n = 42`
10			`! if the following line is omitted, the problem disappears`
11			`integer, dimension(:), allocatable :: a`
12			`end type container_t`
13
14			`type(container_t) :: container`
15
16			`if (container%n /= 42) call abort()`
17			`if (allocated(container%a)) call abort()`
18			`container%n = 1`
19			`allocate(container%a(50))`
20			`call init (container)`
21			`if (container%n /= 42) call abort()`
22			`if (allocated(container%a)) call abort()`
23			`contains`
24			`subroutine init (container)`
25			`type(container_t), intent(out) :: container`
26			`end subroutine init`
27			`end program main`

Browse

Tools

Subversion Repositories openrisc

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