blob: 445b0b777811e12deb650cb3318d179919ef1c84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! PR27954 Internal compiler error on bad statements
! Derived from test case submitted in PR.
subroutine bad1
character*20 :: y, x 00 ! { dg-error "Syntax error" }
data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" }
end subroutine bad1
subroutine bad2
character*20 :: y, x 00 ! { dg-error "Syntax error" }
data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" }
print *, "basket case."
end subroutine bad2
subroutine bad3
implicit none
character*20 :: y, x 00 ! { dg-error "Syntax error" }
data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" }
print *, "basket case that segfaults without patch."
end subroutine bad3
|
