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 7program 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" } 14end program test 15