To get the name of the current function

[Yaqi_Wang]

How can I get the name of the current function? Is there something similar as __func__?

[anthonyrichards]

Define what you mean by 'current'; define what you mean by 'function'.
Then things chould be clearer to us.

[Yaqi_Wang]

ok, let me be more specific:

-------------------------------------
program main

call sub1()

stop

end program main

subroutine sub1()

print *, 'My name is sub1.'
! here can we get the sub1 through preprocessing but not type it manually?

end subroutine sub1

[Steven_L_Intel1]

The compiler does not offer what you are looking for.