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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! PR fortran/34137
4
!
5
! Entry was previously not possible in a module.
6
! Checks also whether the different result combinations
7
! work properly.
8
!
9
module m2
10
  implicit none
11
contains
12
function func(a)
13
  implicit none
14
  integer :: a, func
15
  real :: func2
16
  func = a*8
17
  return
18
entry ent(a) result(func2)
19
  ent = -a*4.0 ! { dg-error "is not a variable" }
20
  return
21
end function func
22
end module m2
23
 
24
module m3
25
  implicit none
26
contains
27
function func(a) result(res)
28
  implicit none
29
  integer :: a, res
30
  real :: func2
31
  res = a*12
32
  return
33
entry ent(a) result(func2)
34
  ent = -a*6.0 ! { dg-error "is not a variable" }
35
  return
36
end function func
37
end module m3

powered by: WebSVN 2.1.0

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