28 lines · plain
1! REQUIRES: openmp_runtime2 3! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags4! Check OpenMP Allocate directive5use omp_lib6 7! 2.11.3 declarative allocate8! 2.11.3 executable allocate9 10integer :: x, y11integer, allocatable :: a, b, m, n, t, z12!$omp allocate(x, y)13!$omp allocate(x, y) allocator(omp_default_mem_alloc)14 continue15!$omp allocate(a, b)16 allocate ( a, b )17 18!$omp allocate(a, b) allocator(omp_default_mem_alloc)19 allocate ( a, b )20 21!$omp allocate(t) allocator(omp_const_mem_alloc)22!$omp allocate(z) allocator(omp_default_mem_alloc)23!$omp allocate(m) allocator(omp_default_mem_alloc)24!$omp allocate(n)25 allocate ( t, z, m, n )26 27end28