fixup: generate code for both REAL*2 and REAL(REAL16) when supported

Author: ggouaillardet

ompi/mpi/fortran/base/gen-mpi-sizeof.pl

@@ -156,18 +156,20 @@ sub generate {
     queue_sub("integer(int${size})", "int${size}", "int${size}");
 }
 for my $size (qw/16 32 64 128/) {
-    if (!($size == 16 && $mpi_real2 == 0 && $mpi_iso_real16 == 0) &&
+    if (!($size == 16 && $mpi_iso_real16 == 0) &&
         !($size == 128 && $mpi_real16 == 0)) {
         queue_sub("real(real${size})", "real${size}", "real${size}");
     }
-    if (!($size == 16 && $mpi_complex4 == 0 && $mpi_iso_real16 == 0) &&
+    if (!($size == 16 && $mpi_iso_real16 == 0) &&
         !($size == 128 && $mpi_complex32 == 0)) {
         queue_sub("complex(real${size})", "complex${size}", "real${size}");
     }
 }
-if ($mpi_real2 == 1 && $mpi_iso_real16 == 0) {
-    queue_sub("real*2", "real16");
-    queue_sub("complex*4", "complex16");
+if ($mpi_real2 == 1) {
+    queue_sub("real*2", "real2");
+}
+if ($mpi_complex4 == 1) {
+    queue_sub("complex*4", "complex4");
 }
 queue_sub("character", "character");
 queue_sub("logical", "logical");