flang/test/Semantics/num_images.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 ! Check for semantic errors in num_images() function calls
   4
   5 subroutine test
   6
   7   ! correct calls, should produce no errors
   8   print *, num_images()
   9   print *, num_images(team_number=1)
  10   print *, num_images(1)
  11
  12   ! incorrectly typed argument
  13   ! the error is seen as too many arguments to the num_images() call with no arguments
  14   !ERROR: too many actual arguments for intrinsic 'num_images'
  15   print *, num_images(3.4)
  16
  17   ! call with too many arguments
  18   !ERROR: too many actual arguments for intrinsic 'num_images'
  19   print *, num_images(1, 1)
  20
  21   ! keyword argument with incorrect type
  22   !ERROR: unknown keyword argument to intrinsic 'num_images'
  23   print *, num_images(team_number=3.4)
  24
  25   ! incorrect keyword argument
  26   !ERROR: unknown keyword argument to intrinsic 'num_images'
  27   print *, num_images(team_numbers=1)
  28
  29   !TODO: test num_images() calls related to team_type argument
  30
  31 end subroutine