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