typed_subroutine_1.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 12 行

! { dg-do compile }
! Tests the fix for 20858, in which the compiler failed to detect that
! a called object had a type.
!
! Contributed by Joost VandeVondele  <[e-mail]>
!
 INTEGER :: S ! { dg-error "has a type, which is not consistent with the CALL " }
 CALL S()     ! { dg-error "has a type, which is not consistent with the CALL " }
 END
 SUBROUTINE S
 END SUBROUTINE