| ! { dg-do compile } |
| ! Tests the fix for PR36700, in which the call to the function would |
| ! cause an ICE. |
| ! |
| ! Contributed by <terry@chem.gu.se> |
| ! |
| module Diatoms |
| implicit none |
| contains |
| function InitialDiatomicX () result(v4) ! { dg-error "has a type" } |
| real(kind = 8), dimension(4) :: v4 |
| v4 = 1 |
| end function InitialDiatomicX |
| subroutine FindDiatomicPeriod |
| call InitialDiatomicX () ! { dg-error "which is not consistent with the CALL" } |
| end subroutine FindDiatomicPeriod |
| end module Diatoms |
| ! { dg-final { cleanup-modules "Diatoms" } } |