20 function test3() ! { dg-warning "is obsolescent" }
22 character(*) :: bar3 ! { dg-warning "is obsolescent" }
27 end function test3 ! { dg-warning "is obsolescent" }
29 function test4(n) ! { dg-error "returning variables of different string lengths" }
32 character(*) :: bar4 ! { dg-warning "is obsolescent" }
39 function test5() ! { dg-error "returning variables of different string lengths" }
48 function test6() ! { dg-warning "is obsolescent|returning variables of different string lengths" }
55 end function test6 ! { dg-warning "is obsolescent" }