1! { dg-do compile }
2! PR44371 STOP parsing rejects valid code.
3  real, dimension(5,5,5) :: i
4  character(1) c, y
5  y = 'y'
6  read(y,*) c
7  if (c=='x') stop; if (c=='X') stop
8  if (c=='x') stop size(i); if (c=='X') stop
9
10  if (c=='y') stop size(i) if (c=='Y') stop ! { dg-error "Syntax error in STOP" }
11  end
12