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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! Test assumed shape arrays in procedures with multiple entry points.
3
! Arguments that aren't present in all entry points must be treated like
4
! optional arguments.
5
module entry_4
6
contains
7
subroutine foo(a)
8
  integer, dimension(:) :: a
9
  integer, dimension(:) :: b
10
  a = (/1, 2/)
11
  return
12
entry bar(b)
13
  b = (/3, 4/)
14
end subroutine
15
end module
16
 
17
program entry_4_prog
18
  use entry_4
19
  integer :: a(2)
20
  a = 0
21
  call foo(a)
22
  if (any (a .ne. (/1, 2/))) call abort
23
  call bar(a)
24
  if (any (a .ne. (/3, 4/))) call abort
25
end program
26
 
27
! { dg-final { cleanup-modules "entry_4" } }

powered by: WebSVN 2.1.0

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