blob: 02602e86a3657e2213c837a724a45f9929adc9c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
! { dg-options "-Wall -std=f95" }
! There should only two warnings be printed.
! PR fortran/30968
print *, "Foo bar&
&Bar foo"
print *, "Foo bar&
Bar foo" ! { dg-warning "Missing '&' in continued character constant" }
print *, "Foo bar"&
&, "Bar foo"
print *, "Foo bar"&
, "Bar foo"
print '(&
a)', 'Hello' ! { dg-warning "Missing '&' in continued character constant" }
print '(&
&a)', 'Hello'
print '('&
&//'a)', 'Hello'
print '('&
// "a)", 'Hello'
end
|
