gcc/testsuite/gfortran.dg/deferred_type_param_9.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/57596
   4 !
   5 ! Contributed by Valery Weber
   6 !
   7 PROGRAM main
   8   IMPLICIT NONE
   9   call get ()
  10   call get2 ()
  11 contains
  12   SUBROUTINE get (c_val)
  13     CHARACTER( : ), INTENT( INOUT ), ALLOCATABLE, OPTIONAL :: c_val
  14     CHARACTER( 10 ) :: c_val_tmp
  15     if(present(c_val)) STOP 1
  16   END SUBROUTINE get
  17   SUBROUTINE get2 (c_val)
  18     CHARACTER( : ), INTENT( OUT ), ALLOCATABLE, OPTIONAL :: c_val
  19     CHARACTER( 10 ) :: c_val_tmp
  20     if(present(c_val)) STOP 2
  21   END SUBROUTINE get2
  22 END PROGRAM main