! { dg-do compile } ! PR Fortran/83741 ! Contributed by Gerhard Steinmetz program p allocate (character(*) :: x) ! { dg-error "Incompatible allocate-object" } end