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