compiler_t
pure logical function is_gnu(self) class(compiler_t), intent(in) :: self is_gnu = any(self%id == [id_f95,id_gcc,id_caf]) end function is_gnu