gcc/testsuite/gfortran.dg/gomp/pr78026.f03 - gcc - Git at Google

 ! PR fortran/78026
 select type (a)		! { dg-error "Selector shall be polymorphic in SELECT TYPE statement" }
 end select
 !$omp declare simd(b)	! { dg-error "Unexpected !.OMP DECLARE SIMD statement" }
 end			! { dg-error "should refer to containing procedure" "" { target *-*-* } .-1 }
	! PR fortran/78026
	select type (a) ! { dg-error "Selector shall be polymorphic in SELECT TYPE statement" }
	end select
	!$omp declare simd(b) ! { dg-error "Unexpected !.OMP DECLARE SIMD statement" }
	end ! { dg-error "should refer to containing procedure" "" { target --* } .-1 }