* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git] / gcc / testsuite / gfortran.dg / derived_result.f90
blob76d4a4941e0e2c1d33a0357b877b9787b286e371
1 ! { dg-do compile }
3 ! PR 78593: [6/7 Regression] ICE in gfc_match_varspec, at fortran/primary.c:2053
5 ! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
7 type(t) function add (x, y) ! { dg-error "is not accessible" }
8 integer, intent(in) :: x, y
9 add%a = x + y ! { dg-error "Unclassifiable statement" }
10 end