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" }