blob: 7a6b64df9cffa6ddc5ed690480cb5ca82466c5b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
