34 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test generic matching with scalars argument without device attr3 4module mlocModule5 interface maxlocUpdate6 module procedure :: &7 maxlocUpdateR_32F, &8 maxlocUpdateR_64F9 end interface maxlocUpdate10contains11 12 attributes(global) subroutine maxlocPartialMaskR_32F1D(back)13 implicit none14 logical, intent(in), value :: back15 real(4) :: mval16 block17 integer(8) :: xloc18 call maxlocUpdate(mval, xloc, back)19 end block20 end subroutine maxlocPartialMaskR_32F1D21 22 attributes(device) subroutine maxlocUpdateR_32F(mval, xloc, back)23 real(4) :: mval24 integer(8) :: xloc25 logical :: back26 end subroutine maxlocUpdateR_32F27 28 attributes(device) subroutine maxlocUpdateR_64F(mval, xloc, back)29 real(8) :: mval30 integer(8) :: xloc31 logical :: back32 end subroutine maxlocUpdateR_64F33end module34