type w90_error_type integer :: code character(len=128) :: message #ifdef W90DEV contains final :: untrapped_error #endif end type w90_error_type