gcc/testsuite/gfortran.dg/data_inquiry_ref.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR98022. Code is in place to deliver the expected result.
   4 ! However, it was determined that the data statements below violate F18(R841)
   5 ! and so an error results.
   6 !
   7 ! Contributed by Arseny Solokha  <asolokha@gmx.com>
   8 !
   9 module ur
  10 contains
  11 ! The reporter's test.
  12   function kn1() result(hm2)
  13     complex :: hm(1:2), hm2(1:3), scalar
  14     data (hm(md)%re, md=1,2)/1.0, 2.0/, scalar%re/42.0/     ! { dg-error "neither an array-element" }
  15     data (hm(md)%im, md=1,2)/0.0, 0.0/, scalar%im/-42.0/    ! { dg-error "neither an array-element" }
  16     hm2(1:2) = hm
  17     hm2(3) = scalar
  18   end function kn1
  19
  20 ! Check for derived types with complex components.
  21   function kn2() result(hm2)
  22     type t
  23       complex :: c
  24       integer :: i
  25     end type
  26     type (t) :: hm(1:2), scalar
  27     complex :: hm2(1:3)
  28     data (hm(md)%c%re, md=1,2)/0.0, 0.0/, scalar%c%re/42.0/  ! { dg-error "neither an array-element" }
  29     data (hm(md)%c%im, md=1,2)/1.0, 2.0/, scalar%c%im/-42.0/ ! { dg-error "neither an array-element" }
  30     data (hm(md)%i, md=1,2)/1, 2/
  31     hm2(1:2) = hm%c
  32     hm2(3) = scalar%c
  33   end function kn2
  34 end module ur
  35
  36 !  use ur
  37 !  if (any (kn1() .ne. [(1.0,0.0),(2.0,0.0),(42.0,-42.0)])) stop 1
  38 !  if (any (kn2() .ne. [(0.0,1.0),(0.0,2.0),(42.0,-42.0)])) stop 2
  39 end