INTRINSIC

INTRINSIC という命令があるのは知らなかったです。普通の状況では何をするわけでもないですが、ベンダー拡張の非標準の INTRINSIC 命令を周知できます。

PROGRAM test
IMPLICIT NONE
INTRINSIC :: LOC, sizeof ! non-standard intrinsic
INTEGER :: i = 100
PRINT *, LOC(i), sizeof(i)
STOP
END PROGRAM test