gcc/testsuite/gfortran.dg/gomp/requires-7.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

subroutine bar2
  block
    !$omp requires unified_shared_memory ! { dg-error "must appear in the specification part of a program unit" }
  end block
end

subroutine bar
contains
  subroutine foo
    !$omp requires unified_shared_memory ! { dg-error "must appear in the specification part of a program unit" }
  end
end

module m
contains
  subroutine foo
    !$omp requires unified_shared_memory ! { dg-error "must appear in the specification part of a program unit" }
  end
end

module m2
 interface
  module subroutine foo()
  end
 end interface
end

submodule (m2) m2_sub
    !$omp requires unified_shared_memory
contains
  module procedure foo
  end
end

program main
contains
  subroutine foo
    !$omp requires unified_shared_memory ! { dg-error "must appear in the specification part of a program unit" }
  end
end
! { dg-prune-output "not yet supported" }