! { dg-do compile } ! ! PR 50073: gfortran must not accept function name when result name is present ! ! Contributed by Vittorio Zecca function fun() result(f) ! { dg-error "RESULT variable" } pointer fun ! { dg-error "RESULT variable" } dimension fun(1) ! { dg-error "RESULT variable" } f=0 end