We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 564ff8f commit ab3d301Copy full SHA for ab3d301
flang/test/Semantics/cuf21.cuf
@@ -4,9 +4,7 @@ module mlocModule
4
interface maxlocUpdate
5
module procedure :: &
6
maxlocUpdateR_32F, &
7
- maxlocUpdateR_64F, &
8
- maxlocUpdateR_32I, &
9
- maxlocUpdateR_64I
+ maxlocUpdateR_64F
10
end interface maxlocUpdate
11
contains
12
@@ -25,14 +23,6 @@ contains
25
23
attributes(device) subroutine maxlocUpdateR_64F(mval)
26
24
real(8) :: mval
27
end subroutine maxlocUpdateR_64F
28
-
29
- attributes(device) subroutine maxlocUpdateR_32I(mval)
30
- integer(4) :: mval
31
- end subroutine maxlocUpdateR_32I
32
33
- attributes(device) subroutine maxlocUpdateR_64I(mval)
34
- integer(8) :: mval
35
- end subroutine maxlocUpdateR_64I
36
end module
37
38
! CHECK-LABEL: func.func @_QMmlocmodulePmaxlocpartialmaskr_32f1d()
0 commit comments