3 ! PR 39996: Double typing of function results not detected
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
11 real :: A ! { dg-error "already has basic type of" }
15 real function B () ! { dg-error "already has basic type of" }
16 end function ! { dg-error "Expecting END INTERFACE statement" }
24 real :: C ! { dg-error "already has basic type of" }
29 real :: D ! { dg-error "already has basic type of" }
34 function E () result (s)
38 real :: E ! { dg-error "already has basic type of" }
42 function F () result (s)
43 real ::s ! { dg-error "already has basic type of" }