[Bug fortran/105473] semicolon allowed when list-directed read integer with decimal='point'

["jvdelisle at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105473

--- Comment #36 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Created attachment 57854
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=57854&action=edit
Modified extended test case

I modified the extended test case so I could review this and summarize.
Currently this is what we get with my comments at the end of each line. I
marked some that I think are clearly incorrect.  Maybe OK depends on on
strictly one chooses to interpret what the standard says.  If we assume that
one or more spaces is an acceptable separator if followed by a non-value I
indicate those with the word space.

comma, isreal = F, testinput =      ; n=     42 ios=    0  OK, null read
point, isreal = F, testinput =      ; n=     42 ios=    0  maybe OK
comma, isreal = F, testinput =      , n=     42 ios= 5010  OK, error
point, isreal = F, testinput =      , n=     42 ios=    0  OK, null read
comma, isreal = F, testinput =      . n=     42 ios= 5010  OK, error
point, isreal = F, testinput =      . n=     42 ios= 5010  OK, error
comma, isreal = F, testinput =     5. n=     42 ios= 5010  OK, error
point, isreal = F, testinput =     5. n=     42 ios= 5010  OK, error
comma, isreal = F, testinput =     5, n=     42 ios= 5010  OK, error
point, isreal = F, testinput =     5, n=      5 ios=    0  OK, good read
comma, isreal = F, testinput =     5; n=      5 ios=    0  OK, good read
point, isreal = F, testinput =     5; n=      5 ios=    0  maybe OK
comma, isreal = F, testinput =    7 . n=      7 ios=    0  OK, good read space
point, isreal = F, testinput =    7 . n=      7 ios=    0  OK, good read space
comma, isreal = F, testinput =    7 , n=     42 ios= 5010  Incorrect
point, isreal = F, testinput =    7 , n=      7 ios=    0  OK, good read
comma, isreal = F, testinput =    7 ; n=      7 ios=    0  OK, good read space
point, isreal = F, testinput =    7 ; n=      7 ios=    0  OK, good read space
comma, isreal = T, testinput =     8. r=  42.00 ios= 5010  OK, error
point, isreal = T, testinput =     8. r=   8.00 ios=    0  OK, good read
comma, isreal = T, testinput =     8, r=   8.00 ios=    0  OK, good read
point, isreal = T, testinput =     8, r=   8.00 ios=    0  OK, good read
comma, isreal = T, testinput =     8; r=   8.00 ios=    0  OK, good read
point, isreal = T, testinput =     8; r=   8.00 ios=    0  maybe OK
comma, isreal = T, testinput =    9 . r=   9.00 ios=    0  OK, good read space
point, isreal = T, testinput =    9 . r=   9.00 ios=    0  OK, good read space
comma, isreal = T, testinput =    9 , r=   9.00 ios= 5010  Incorrect, space?
point, isreal = T, testinput =    9 , r=   9.00 ios=    0  OK, good read
comma, isreal = T, testinput =    9 ; r=   9.00 ios=    0  OK, good read
point, isreal = T, testinput =    9 ; r=   9.00 ios=    0  maybe OK
comma, isreal = T, testinput =   3,3. r=  42.00 ios= 5010  OK, error
point, isreal = T, testinput =   3.3. r=  42.00 ios= 5010  OK, error
comma, isreal = T, testinput =   3,3, r=  42.00 ios= 5010  OK, error
comma, isreal = T, testinput =   3,3; r=   3.30 ios=    0  OK, good read
point, isreal = T, testinput =   3.3; r=   3.30 ios=    0  maybe OK
comma, isreal = T, testinput =  4,4 . r=   4.40 ios=    0  OK, good read space
point, isreal = T, testinput =  4.4 . r=   4.40 ios=    0  OK, goor read space
comma, isreal = T, testinput =  4,4 , r=   4.40 ios= 5010  Incorrect, space?
point, isreal = T, testinput =  4.4 , r=   4.40 ios=    0  OK, good read
comma, isreal = T, testinput =  4,4 ; r=   4.40 ios=    0  OK, good read
point, isreal = T, testinput =  4.4 ; r=   4.40 ios=    0  OK, good read space

I have a followup comment on this.