1 2 3 4 5 6
! { dg-do compile } ! program test procedure(team_num) :: g ! { dg-error "must be explicit" } end program