53 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck %s2! Check Unparsing of OpenMP Allocate directive3 4program allocate_unparse5use omp_lib6 7real, dimension (:,:), allocatable :: darray8integer :: a, b, j, m, n, t, x, y, z9 10! 2.11.3 declarative allocate11 12!$omp allocate13!$omp allocate(x, y)14!$omp allocate(x, y) allocator(omp_default_mem_alloc)15 16! 2.11.3 executable allocate17 18!$omp allocate(a, b)19 allocate ( darray(a, b) )20!$omp allocate allocator(omp_default_mem_alloc)21 allocate ( darray(a, b) )22!$omp allocate(a, b) allocator(omp_default_mem_alloc)23 allocate ( darray(a, b) )24 25!$omp allocate(t) allocator(omp_const_mem_alloc)26!$omp allocate(z) allocator(omp_default_mem_alloc)27!$omp allocate(m) allocator(omp_default_mem_alloc)28!$omp allocate(n)29!$omp allocate(j) align(16)30 allocate ( darray(z, t) )31 32!$omp allocate33 allocate ( darray(a, b) )34end program allocate_unparse35 36!CHECK:!$OMP ALLOCATE{{[ ]*$}}37!CHECK:!$OMP ALLOCATE(x, y)38!CHECK:!$OMP ALLOCATE(x, y) ALLOCATOR(omp_default_mem_alloc)39!CHECK:!$OMP ALLOCATE(a, b)40!CHECK:ALLOCATE(darray(a,b))41!CHECK:!$OMP ALLOCATE ALLOCATOR(omp_default_mem_alloc)42!CHECK:ALLOCATE(darray(a,b))43!CHECK:!$OMP ALLOCATE(a, b) ALLOCATOR(omp_default_mem_alloc)44!CHECK:ALLOCATE(darray(a,b))45!CHECK:!$OMP ALLOCATE(t) ALLOCATOR(omp_const_mem_alloc)46!CHECK:!$OMP ALLOCATE(z) ALLOCATOR(omp_default_mem_alloc)47!CHECK:!$OMP ALLOCATE(m) ALLOCATOR(omp_default_mem_alloc)48!CHECK:!$OMP ALLOCATE(n)49!CHECK:!$OMP ALLOCATE(j) ALIGN(16)50!CHECK:ALLOCATE(darray(z,t))51!CHECK:!$OMP ALLOCATE{{[ ]*$}}52!CHECK:ALLOCATE(darray(a,b))53