1! { dg-do compile } 2! Tests the fix for PR36700, in which the call to the function would 3! cause an ICE. 4! 5! Contributed by <terry@chem.gu.se> 6! 7module Diatoms 8 implicit none 9contains 10 function InitialDiatomicX () result(v4) ! { dg-error "has a type" } 11 real(kind = 8), dimension(4) :: v4 12 v4 = 1 13 end function InitialDiatomicX 14 subroutine FindDiatomicPeriod 15 call InitialDiatomicX () ! { dg-error "which is not consistent with the CALL" } 16 end subroutine FindDiatomicPeriod 17end module Diatoms 18