Am 06.09.24 um 20:58 schrieb Steve Kargl:
Your testcases are all free source form. In fixed
form, gfortran would need to deal with 'u = 1 2 3 4 u _8'
I don't have the patch in my tree at the moment,
it isn't clear to me if the matcher for an unsigned
constant is prepared to deal with space between 4 an u
in the above. The match_digits likely leaves the
current locus at u, but I'll need to go check that.
I have added a new test case
! { dg-do compile }
! { dg-options "-funsigned" }
program memain
print *,12u_8
print *,1 2u_8
print *,12 u_8
print *,12u _8
print *,12u_ 8
end
as unsigned_24.f, which passes, so that should be OK.
Thanks for the review!
Best regards
Thomas
