[Flang][OpenMP] Unexpected error: name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute

[sscalpone]

omp_dealloc.f90

    subroutine s
        implicit none
        double precision,allocatable,dimension(:) :: r
        !$omp parallel private(r)
        allocate(r(1))
        deallocate(r)
        !$omp end parallel
    end subroutine

% flang -c omp_dealloc.f90
% flang -c -fopenmp omp_dealloc.f90
./omp_dealloc.f90:6:20: error: name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute
          deallocate(r)
                     ^

[llvmbot]

@llvm/issue-subscribers-openmp

[llvmbot]

@llvm/issue-subscribers-flang-frontend