pointer_component_type_1.f90

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

! { dg-do compile }
! This checks the fix for PR20889 in wrong pointer types in derived
! type constructors would either give no message or would segfault.
!
! Contributed by Joost VandVondele  <[e-mail]>
!==============
  TYPE TEST
    REAL, POINTER :: A
  END TYPE

  TYPE TEST1
    REAL :: A
  END TYPE

  INTEGER, POINTER :: IP
  real, POINTER :: RP
  TYPE(TEST) :: DD
  TYPE(TEST1) :: EE
! Next line is the original => gave no warning/error.
  DD=TEST(NULL(IP))    ! { dg-error "INTEGER but should be REAL" }
! Would segfault here.
  DD=TEST(IP)          ! { dg-error "INTEGER but should be REAL" }
! Check right target type is OK.
  DD=TEST(NULL(RP))
!
  DD=TEST(NULL())
! Check non-pointer is OK.
  EE= TEST1(1)
! Test attempted conversion from character to real.
  EE= TEST1("e")       ! { dg-error "convert CHARACTER" }
END