-common=volatile comusage.f