Le fichier source devra alors être suffixé soit par .F, soit par le suffixe fourni via l'option -qsuffix=cpp=suffixe.
Voici un exemple :
vargas : xlf90 -WF,-DDIM=5,-DDOUBLE trucc.F vargas : xlf90 -qsuffix=cpp=f -WF,-DDIM=5,-DDOUBLE trucc.f vargas : cat trucc.F #define VAL 1. #ifdef DOUBLE # define MYKIND 8 #else # define MYKIND 4 #endif program trucc implicit none real(kind=MYKIND),dimension(DIM) :: tab tab(:)=VAL print *, kind(tab) print *, tab end program trucc