Fortran Wiki
same_type_as