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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [allocatable_scalar_11.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/46484
4
!
5
 
6
function g()
7
  implicit none
8
  integer, allocatable :: g
9
  call int()
10
    print *, loc(g) ! OK
11
contains
12
  subroutine int()
13
    print *, loc(g) ! OK
14
    print *, allocated(g) ! OK
15
  end subroutine int
16
end function
17
 
18
implicit none
19
integer, allocatable :: x
20
print *, allocated(f) ! { dg-error "must be a variable" }
21
print *, loc(f) ! OK
22
contains
23
function f()
24
  integer, allocatable :: f
25
  print *, loc(f) ! OK
26
  print *, allocated(f) ! OK
27
end function
28
end

powered by: WebSVN 2.1.0

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