flang/test/Semantics/cuf11.cuf

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2
   3 module mod1
   4 contains
   5   attributes(global) subroutine sub1(adev)
   6     real :: adev(10)
   7     integer :: tid
   8     tid = threadIdx%x
   9 ! Use to crash the compiler. Make sure we have the proper semantic error.
  10 !ERROR: Actual argument for 'i=' has bad type 'REAL(4)'
  11     adev(tid + 1) = scale(real(tid), 2.0)
  12   end subroutine sub1
  13 end module
  14
  15 subroutine sub1()
  16   real, device :: adev(10), bdev(10)
  17   real :: ahost(10)
  18
  19 !ERROR: More than one reference to a CUDA object on the right hand side of the assigment
  20   ahost = adev + bdev
  21
  22   ahost = adev + adev
  23
  24 end subroutine
  25
  26 logical function compare_h(a,b)
  27 !ERROR: Derived type 'h' not found
  28   type(h) :: a, b
  29 !ERROR: 'a' is not an object of derived type; it is implicitly typed
  30 !ERROR: 'b' is not an object of derived type; it is implicitly typed
  31   compare_h = (a%h .eq. b%h)
  32 end
  33
  34 attributes(global) subroutine sub2()
  35   if (threadIdx%x == 1) print *, "I'm number one"
  36 end subroutine