1! { dg-do compile } 2! 3! PR fortran/94709 4! 5! Check that 'Line truncated' gets printed as appropriate 6! 7integer i 8i = 0 9!$omp target ! map() 10!$omp end target 11 12!$omp target map() ! { dg-error "Line truncated" } 13!$acc kernels copy() 14!a = 5 15!$acc end kernels 16!$omp end target 17end 18 19! { dg-message "some warnings being treated as errors" "" {target "*-*-*"} 0 } 20