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