program test1
use a, only: f
implicit none

call f()

print *, "OK"
end