6   public abs
7   interface abs  interface
22   public abs
23   interface abs  interface
34   use m1, only: abs
38     use m2, only: abs
40     print *, abs(1)
42     print *, abs(1.)
44     print *, abs((1,1))
46     print *, abs()
49     intrinsic abs ! override some of module's use of m1
51       use m2, only: abs
53       print *, abs(1)
55       print *, abs(1.)
57       print *, abs((1,1))
59       print *, abs()
63     interface abs  interface
67     print *, abs(1)
69     print *, abs(1.)
71     print *, abs((1,1))
73     print *, abs()
75       intrinsic abs ! override the extension
77       print *, abs((1,1))
85     !CHECK: abs(
86     print *, abs(1)
88     integer function abs(n) ! override module's use of m1  function
90       abs = n
97   integer function abs(n)  function
99     abs = n
102     interface abs  interface
103       module procedure abs ! same name, host-associated
105     !CHECK: abs(
106     print *, abs(1)