simple static analysis using ftnchek