! { dg-do compile } | |
! | |
! PR fortran/94709 | |
! | |
! Check that 'Line truncated' gets printed as appropriate | |
! | |
integer i | |
i = 0 | |
!$omp target ! map() | |
!$omp end target | |
!$omp target map() ! { dg-error "Line truncated" } | |
!$acc kernels copy() | |
!a = 5 | |
!$acc end kernels | |
!$omp end target | |
end | |
! { dg-message "some warnings being treated as errors" "" {target "*-*-*"} 0 } |