2 ! Tests the fix for PR27554, where the actual argument reference
3 ! to abs would not be recognised as being to an intrinsic
4 ! procedure and would produce junk in the assembler.
6 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
8 subroutine foo (proc, z)
11 if ((proc(z) .ne. abs (z)) .and.
12 & (proc(z) .ne. alog10 (abs(z)))) call abort ()
27 ! The reference here would prevent the actual arg from being seen
28 ! as an intrinsic procedure in the call to foo.
31 ! The intrinsic function can be locally over-ridden by an interface
33 ! or an external declaration.
35 ! Just make sure with another intrinsic but this time not referenced.