summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/spread_scalar_source.f90
blob: 118a2de6ef895e4938a51a0b75127c6324524d4d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
! { dg-do run }
! { dg-options "-O0" }

  character*1 :: i, j(10)
  character*8 :: buffer
  integer(kind=1) :: ii, jj(10)
  type :: mytype
    real(kind=8) :: x
    integer(kind=1) :: i
    character*15 :: ch
  end type mytype
  type(mytype) :: iii, jjj(10)

  i = "w"
  ii = 42
  iii = mytype (41.9999_8, 77, "test_of_spread_")

! Test constant sources.

  j = spread ("z", 1 , 10)
  if (any (j /= "z")) call abort ()
  jj = spread (19, 1 , 10)
  if (any (jj /= 19)) call abort ()

! Test variable sources.

  j = spread (i, 1 , 10)
  if (any (j /= "w")) call abort ()
  jj = spread (ii, 1 , 10)
  if (any (jj /= 42)) call abort ()
  jjj = spread (iii, 1 , 10)
  if (any (jjj%x /= 41.9999_8)) call abort ()
  if (any (jjj%i /= 77)) call abort ()
  if (any (jjj%ch /= "test_of_spread_")) call abort ()

! Check that spread != 1 is OK.

  jj(2:10:2) = spread (1, 1, 5)
  if (any (jj(1:9:2) /= 42) .or. any (jj(2:10:2) /= 1)) call abort ()

! Finally, check that temporaries and trans-io.c work correctly.

  write (buffer, '(4a1)') spread (i, 1 , 4)
  if (trim(buffer) /= "wwww") call abort ()
  write (buffer, '(4a1)') spread ("r", 1 , 4)
  if (trim(buffer) /= "rrrr") call abort ()
  write (buffer, '(4i2)') spread (ii, 1 , 4)
  if (trim(buffer) /= "42424242") call abort ()
  write (buffer, '(4i2)') spread (31, 1 , 4)
  if (trim(buffer) /= "31313131") call abort ()

  end