view gcc/testsuite/gfortran.dg/host_assoc_call_2.f90 @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900 (2020-05-25)
parents 04ced10e8804
children
line wrap: on
line source
! { 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