flang/test/Semantics/cuf08.cuf

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 module m
   3  contains
   4   !ERROR: A subroutine may not have LAUNCH_BOUNDS() or CLUSTER_DIMS() unless it has ATTRIBUTES(GLOBAL) or ATTRIBUTES(GRID_GLOBAL)
   5   launch_bounds(1,2) subroutine bad1; end
   6   !ERROR: A subroutine may not have LAUNCH_BOUNDS() or CLUSTER_DIMS() unless it has ATTRIBUTES(GLOBAL) or ATTRIBUTES(GRID_GLOBAL)
   7   cluster_dims(1,2,3) subroutine bad2; end
   8   attributes(global) launch_bounds(1,2) subroutine good1; end
   9   attributes(global) launch_bounds(1,2,3) subroutine good2; end
  10   !ERROR: LAUNCH_BOUNDS() may only appear once
  11   attributes(global) launch_bounds(1,2) launch_bounds(3,4) subroutine bad3; end
  12   !ERROR: Operands of LAUNCH_BOUNDS() must be 2 or 3 integer constants
  13   attributes(global) launch_bounds(1) subroutine bad4; end
  14   !ERROR: Operands of LAUNCH_BOUNDS() must be 2 or 3 integer constants
  15   attributes(global) launch_bounds(1,2,3,4) subroutine bad5; end
  16   attributes(global) cluster_dims(1,2,3) subroutine good3; end
  17   !ERROR: CLUSTER_DIMS() may only appear once
  18   attributes(global) cluster_dims(1,2,3) cluster_dims(4,5,6) subroutine bad6; end
  19   !ERROR: Operands of CLUSTER_DIMS() must be three integer constants
  20   attributes(global) cluster_dims(1) subroutine bad7; end
  21   !ERROR: Operands of CLUSTER_DIMS() must be three integer constants
  22   attributes(global) cluster_dims(1,2,3,4) subroutine bad8; end
  23 end module