1206376Srpaulo! { dg-do compile } 2206376Srpaulo! PR27954 Internal compiler error on bad statements 3206376Srpaulo! Derived from test case submitted in PR. 4206376Srpaulosubroutine bad1 5206376Srpaulo character*20 :: y, x 00 ! { dg-error "Syntax error" } 6206376Srpaulo data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" } 7206376Srpauloend subroutine bad1 8206376Srpaulo 9206376Srpaulosubroutine bad2 10206376Srpaulo character*20 :: y, x 00 ! { dg-error "Syntax error" } 11206376Srpaulo data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" } 12206376Srpaulo print *, "basket case." 13206376Srpauloend subroutine bad2 14206376Srpaulo 15206376Srpaulosubroutine bad3 16206376Srpaulo implicit none 17206376Srpaulo character*20 :: y, x 00 ! { dg-error "Syntax error" } 18206376Srpaulo data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" } 19206376Srpaulo print *, "basket case that segfaults without patch." 20206376Srpauloend subroutine bad3 21206376Srpaulo 22206376Srpaulo