1*889c7c8eSDaniil Dudkin! RUN: %flang -E %s 2>&1 | FileCheck %s 2*889c7c8eSDaniil Dudkin! CHECK: character(*), parameter :: simple_literal = "!!!!!!!!!!!!!!!!!!!!!& 3*889c7c8eSDaniil Dudkin! CHECK: &!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!& 4*889c7c8eSDaniil Dudkin! CHECK: &!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!& 5*889c7c8eSDaniil Dudkin! CHECK: &!!!!!!!!!!!!!" 6*889c7c8eSDaniil Dudkin! CHECK: character(*), parameter :: hollerith_literal = 166H!!!!!!!!!!!!!!!& 7*889c7c8eSDaniil Dudkin! CHECK: &!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!& 8*889c7c8eSDaniil Dudkin! CHECK: &!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!& 9*889c7c8eSDaniil Dudkin! CHECK: &!!!!!!!!!!!!!!!!!!! 10*889c7c8eSDaniil Dudkin! Test correct continuations in string literals 11*889c7c8eSDaniil Dudkinsubroutine foo 12*889c7c8eSDaniil Dudkin character(*), parameter :: simple_literal = "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 13*889c7c8eSDaniil Dudkin character(*), parameter :: hollerith_literal = 166H!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 14*889c7c8eSDaniil Dudkinend subroutine foo 15