gcc/testsuite/gfortran.dg/coarray_32.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { dg-do compile }
! { dg-options "-fdump-tree-original -fcoarray=lib" }
!
  real, allocatable :: values(:)[:]
  allocate(values(1024)[*])
  call  laplacian(values) 
contains
  subroutine laplacian(rhs) 
    real, allocatable :: rhs(:)[:]
    real :: local_laplacian(size(rhs))
    local_laplacian=0.
  end subroutine
end 

! { dg-final { scan-tree-dump-times "ubound.. = " 1 "original" } }
! { dg-final { scan-tree-dump-times "size.. = " 2 "original" } }