Subversion Repositories openrisc

! { dg-do run }

! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" }

! { dg-add-options ieee }

! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }

program init_flag_3

  call real_test

  call logical_test

  call int_test

  call complex_test

end program init_flag_3

! Test some initializations for both implicitly and

! explicitly declared local variables.

subroutine real_test

  real r1

  real r2(10)

  dimension r3(10,10)

  if (r1 .eq. r1) call abort

  if (r2(2) .eq. r2(2)) call abort

  if (r3(5,5) .eq. r3(5,5)) call abort

  if (r4 .eq. r4) call abort

end subroutine real_test

subroutine logical_test

  logical l1

  logical l2(2)

  if (l1 .neqv. .false.) call abort

  if (l2(2) .neqv. .false.) call abort

end subroutine logical_test

subroutine int_test

  integer i1

  integer i2(10)

  dimension i3(10,10)

  if (i1 /= -1) call abort

  if (i2(2) /= -1) call abort

  if (i3(5,5) /= -1) call abort

  if (i4 /= -1) call abort

end subroutine int_test

subroutine complex_test

  complex c1

  complex c2(20,20)

  if (c1 .eq. c1) call abort

  if (c2(1,1) .eq. c2(1,1)) call abort

end subroutine complex_test