1! { dg-do compile }
2! { dg-additional-options "-Wall" }
3!
4! PR fortran/94709
5!
6! Check that 'Line truncated' gets printed as appropriate
7!
8c$omp target                                                            ! map()
9c$omp end target
10
11c$omp target                                                            map() ! { dg-warning "Line truncated" }
12c$acc declare                                                           map()
13ca =                                                                    5
14c$omp end target
15       end
16