Hi Andre,

+         if (gfc_option.allow_std & GFC_STD_F2003)
+           gfc_error ("%qs argument of %qs intrinsic at %L must be INTEGER "
+                      "or REAL or CHARACTER",

I had expected UNSIGNED in this enumeration, too.

+                      gfc_current_intrinsic_arg[n]->name,
+                      gfc_current_intrinsic, &e->where);
+         else
+           gfc_error ("%qs argument of %qs intrinsic at %L must be INTEGER "
+                      "or REAL", gfc_current_intrinsic_arg[n]->name,

Same.

You're right.

Corrected accordingly and pushed as
r15-3996-g9dd9a06940a37e82d13ccd2be0c4ef68bca29750.

Thanks for the review!

Best regards

        Thomas

Reply via email to