| ! { 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 |