1! { dg-do compile } 2! 3! PR fortran/33412 4! 5elemental subroutine a() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" } 6end subroutine a ! { dg-error "Expecting END PROGRAM" } 7 8elemental function b() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" } 9end function b ! { dg-error "Expecting END PROGRAM" } 10end 11