24 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 contains4 !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; end6 !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; end8 attributes(global) launch_bounds(1,2) subroutine good1; end9 attributes(global) launch_bounds(1,2,3) subroutine good2; end10 !ERROR: LAUNCH_BOUNDS() may only appear once11 attributes(global) launch_bounds(1,2) launch_bounds(3,4) subroutine bad3; end12 !ERROR: Operands of LAUNCH_BOUNDS() must be 2 or 3 integer constants13 attributes(global) launch_bounds(1) subroutine bad4; end14 !ERROR: Operands of LAUNCH_BOUNDS() must be 2 or 3 integer constants15 attributes(global) launch_bounds(1,2,3,4) subroutine bad5; end16 attributes(global) cluster_dims(1,2,3) subroutine good3; end17 !ERROR: CLUSTER_DIMS() may only appear once18 attributes(global) cluster_dims(1,2,3) cluster_dims(4,5,6) subroutine bad6; end19 !ERROR: Operands of CLUSTER_DIMS() must be three integer constants20 attributes(global) cluster_dims(1) subroutine bad7; end21 !ERROR: Operands of CLUSTER_DIMS() must be three integer constants22 attributes(global) cluster_dims(1,2,3,4) subroutine bad8; end23end module24