flang/test/Semantics/omp-allocate07.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 5.0
   3 ! 2.11.3 allocate Directive
   4 ! A type parameter inquiry cannot appear in an allocate directive.
   5
   6 subroutine allocate()
   7 use omp_lib
   8   type my_type(kind_param, len_param)
   9     INTEGER, KIND :: kind_param
  10     INTEGER, LEN :: len_param
  11     INTEGER :: array(10)
  12   end type
  13
  14   type(my_type(2, 4)) :: my_var
  15   INTEGER(KIND=4) :: x
  16   CHARACTER(LEN=32) :: w
  17   INTEGER, DIMENSION(:), ALLOCATABLE :: y
  18
  19   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
  20   !$omp allocate(x%KIND)
  21
  22   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
  23   !$omp allocate(w%LEN)
  24
  25   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
  26   !$omp allocate(y%KIND)
  27
  28   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
  29   !$omp allocate(my_var%kind_param)
  30
  31   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
  32   !$omp allocate(my_var%len_param)
  33
  34 end subroutine allocate
  35