Subversion Repositories openrisc

! { 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