19 lines
559 B
Fortran
19 lines
559 B
Fortran
! { 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" } }
|