| ! { dg-do compile } | |
| ! PR44371 STOP parsing rejects valid code. | |
| real, dimension(5,5,5) :: i | |
| character(1) c, y | |
| y = 'y' | |
| read(y,*) c | |
| if (c=='x') stop; if (c=='X') stop | |
| if (c=='x') stop size(i); if (c=='X') stop | |
| if (c=='y') stop size(i) if (c=='Y') stop ! { dg-error "Syntax error in STOP" } | |
| end |