URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [init_flag_3.f90] - Rev 384
Compare with Previous | Blame | View Log
! { 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