1255801Sdes! { dg-do compile } 2255801Sdes! Tests the fix for PR36700, in which the call to the function would 3255801Sdes! cause an ICE. 4319186Sngie! 5255801Sdes! Contributed by <terry@chem.gu.se> 6255801Sdes! 7255801Sdesmodule Diatoms 8255801Sdes implicit none 9255801Sdescontains 10255801Sdes function InitialDiatomicX () result(v4) ! { dg-error "has a type" } 11255801Sdes real(kind = 8), dimension(4) :: v4 12255801Sdes v4 = 1 13255801Sdes end function InitialDiatomicX 14255801Sdes subroutine FindDiatomicPeriod 15275042Sbapt call InitialDiatomicX () ! { dg-error "which is not consistent with the CALL" } 16255801Sdes end subroutine FindDiatomicPeriod 17255801Sdesend module Diatoms 18