PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / func_result_7.f90
blob027a97878ba173b9ef88e9a898ba151fe13053cc
1 ! { dg-do compile }
3 ! PR 50073: gfortran must not accept function name when result name is present
5 ! Contributed by Vittorio Zecca <zeccav@gmail.com>
7 function fun() result(f) ! { dg-error "RESULT variable" }
8 pointer fun ! { dg-error "RESULT variable" }
9 dimension fun(1) ! { dg-error "RESULT variable" }
10 f=0
11 end