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