! RUN: %python %S/test_errors.py %s %flang_fc1
! Test generic matching with scalars argument without device attr

module mlocModule
  interface maxlocUpdate
     module procedure :: &
          maxlocUpdateR_32F, &
          maxlocUpdateR_64F
  end interface maxlocUpdate
contains

  attributes(global) subroutine maxlocPartialMaskR_32F1D(back)
    implicit none
    logical, intent(in), value :: back
    real(4) :: mval
  block
    integer(8) :: xloc
    call maxlocUpdate(mval, xloc, back)
  end block
  end subroutine maxlocPartialMaskR_32F1D

  attributes(device) subroutine maxlocUpdateR_32F(mval, xloc, back)
    real(4) :: mval
    integer(8) :: xloc
    logical :: back
  end subroutine maxlocUpdateR_32F

  attributes(device) subroutine maxlocUpdateR_64F(mval, xloc, back)
    real(8) :: mval
    integer(8) :: xloc
    logical :: back
  end subroutine maxlocUpdateR_64F
end module