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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-Wall -pedantic" }
!
! PR fortran/41872; updated due to PR fortran/46484
!
!  More tests for allocatable scalars
!
program test
  implicit none
  integer, allocatable :: a
  integer :: b
 
  if (allocated (a)) call abort ()
  b = 7
  b = func(.true.)
  if (b /= 5332) call abort ()
  b = 7
  b = func(.true.) + 1
  if (b /= 5333) call abort ()
 
  call intout (a, .false.)
  if (allocated (a)) call abort ()
  call intout (a, .true.)
  if (.not.allocated (a)) call abort ()
  if (a /= 764) call abort ()
  call intout2 (a)
  if (allocated (a)) call abort ()
 
contains
 
  function func (alloc)
    integer, allocatable ::  func
    logical :: alloc
    if (allocated (func)) call abort ()
    if (alloc) then
      allocate(func)
      func = 5332
    end if
  end function func
 
  subroutine intout (dum, alloc)
    implicit none
    integer, allocatable,intent(out) :: dum
    logical :: alloc
    if (allocated (dum)) call abort()
    if (alloc) then
      allocate (dum)
      dum = 764
    end if
  end subroutine intout
 
  subroutine intout2 (dum) ! { dg-warning "declared INTENT.OUT. but was not set" }
    integer, allocatable,intent(out) :: dum
  end subroutine intout2
end program test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-Wall -pedantic" }`
3			`!`
4			`! PR fortran/41872; updated due to PR fortran/46484`
5			`!`
6			`! More tests for allocatable scalars`
7			`!`
8			`program test`
9			`implicit none`
10			`integer, allocatable :: a`
11			`integer :: b`
12
13			`if (allocated (a)) call abort ()`
14			`b = 7`
15			`b = func(.true.)`
16			`if (b /= 5332) call abort ()`
17			`b = 7`
18			`b = func(.true.) + 1`
19			`if (b /= 5333) call abort ()`
20
21			`call intout (a, .false.)`
22			`if (allocated (a)) call abort ()`
23			`call intout (a, .true.)`
24			`if (.not.allocated (a)) call abort ()`
25			`if (a /= 764) call abort ()`
26			`call intout2 (a)`
27			`if (allocated (a)) call abort ()`
28
29			`contains`
30
31			`function func (alloc)`
32			`integer, allocatable :: func`
33			`logical :: alloc`
34			`if (allocated (func)) call abort ()`
35			`if (alloc) then`
36			`allocate(func)`
37			`func = 5332`
38			`end if`
39			`end function func`
40
41			`subroutine intout (dum, alloc)`
42			`implicit none`
43			`integer, allocatable,intent(out) :: dum`
44			`logical :: alloc`
45			`if (allocated (dum)) call abort()`
46			`if (alloc) then`
47			`allocate (dum)`
48			`dum = 764`
49			`end if`
50			`end subroutine intout`
51
52			`subroutine intout2 (dum) ! { dg-warning "declared INTENT.OUT. but was not set" }`
53			`integer, allocatable,intent(out) :: dum`
54			`end subroutine intout2`
55			`end program test`

Browse

Tools

Subversion Repositories openrisc

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