program test1
use a, only: f
implicit none

call f()

print *, "TEST1 OK"
end