gcc/testsuite/gfortran.dg/intent_out_8.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 !
   4 ! PR 53655: [F03] "default initializer" warnings
   5 !
   6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   7
   8 type t
   9 end type t
  10
  11 contains
  12
  13   subroutine foo(x)             ! { dg-warning "defined but not used" }
  14     type(t), intent(out) :: x
  15   end subroutine
  16
  17 end