gcc/testsuite/gfortran.dg/transfer_check_5.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wsurprising" }
   3 !
   4 ! PR fortran/89516 - ICE in gfc_calculate_transfer_sizes at gcc/fortran/check.c:5506
   5 ! Found by Martin Liška
   6
   7 program test
   8   character(*), parameter :: n = ''
   9   character(*), parameter :: o = transfer ([''], n)
  10   print *, transfer(1,'',size=0) ! No warning
  11   print *, transfer(1,'',size=1) ! No warning
  12   print *, transfer('',1,size=0) ! No warning
  13   print *, transfer('',1,size=1) ! { dg-warning "has partly undefined result" }
  14 end program test