! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp ! OpenMP Version 5.0 ! 2.11.3 allocate Directive ! A type parameter inquiry cannot appear in an allocate directive. subroutine allocate() use omp_lib type my_type(kind_param, len_param) INTEGER, KIND :: kind_param INTEGER, LEN :: len_param INTEGER :: array(10) end type type(my_type(2, 4)) :: my_var INTEGER(KIND=4) :: x CHARACTER(LEN=32) :: w INTEGER, DIMENSION(:), ALLOCATABLE :: y !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive !$omp allocate(x%KIND) !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive !$omp allocate(w%LEN) !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive !$omp allocate(y%KIND) !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive !$omp allocate(my_var%kind_param) !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive !$omp allocate(my_var%len_param) end subroutine allocate