OSDN Git Service

* gfortran.dg/init_flag_3.f90: Add -mieee for sh.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / init_flag_3.f90
1 ! { dg-do run }
2 ! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" }
3 ! { dg-options "-mieee -finit-integer=-1 -finit-logical=false -finit-real=nan" { target sh*-*-* } }
4
5 program init_flag_3
6   call real_test
7   call logical_test
8   call int_test
9   call complex_test
10 end program init_flag_3
11
12 ! Test some initializations for both implicitly and
13 ! explicitly declared local variables.
14 subroutine real_test
15   real r1
16   real r2(10)
17   dimension r3(10,10)
18   if (r1 .eq. r1) call abort
19   if (r2(2) .eq. r2(2)) call abort
20   if (r3(5,5) .eq. r3(5,5)) call abort
21   if (r4 .eq. r4) call abort
22 end subroutine real_test
23
24 subroutine logical_test
25   logical l1
26   logical l2(2)
27   if (l1 .neqv. .false.) call abort
28   if (l2(2) .neqv. .false.) call abort
29 end subroutine logical_test
30
31 subroutine int_test
32   integer i1
33   integer i2(10)
34   dimension i3(10,10)
35   if (i1 /= -1) call abort
36   if (i2(2) /= -1) call abort
37   if (i3(5,5) /= -1) call abort
38   if (i4 /= -1) call abort
39 end subroutine int_test
40
41 subroutine complex_test
42   complex c1
43   complex c2(20,20)
44   if (c1 .eq. c1) call abort
45   if (c2(1,1) .eq. c2(1,1)) call abort 
46 end subroutine complex_test