36 lines
1 KiB
Fortran
36 lines
1 KiB
Fortran
|
! 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
|
||
|
|
|