gcc/testsuite/gfortran.dg/pr91497.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target fortran_real_10 }
   3 ! { dg-require-effective-target fortran_real_16 }
   4 ! { dg-options "-Wall" }
   5 ! Code contributed by Manfred Schwarb <manfred99 at gmx dot ch>
   6 ! PR fortran/91497
   7 !
   8 ! Prior to applying the patch for this PR, the following code
   9 ! would generate numerous conversion warnings.
  10 !
  11 program foo
  12
  13       real(4) a,aa
  14       real(8) b,bb
  15       real(10) c,cc
  16       real(16) d
  17       integer(2) e,ee
  18       integer(4) f,ff
  19       integer(8) g,gg
  20       PARAMETER(a=3.1415927_4)
  21       PARAMETER(b=3.1415927_8)
  22       PARAMETER(c=3.1415927_10)
  23       PARAMETER(d=3.1415927_16)
  24       PARAMETER(e=123_2)
  25       PARAMETER(f=123_4)
  26       PARAMETER(g=123_8)
  27
  28       aa=REAL(b)
  29       aa=REAL(c)
  30       aa=REAL(d)
  31       aa=REAL(e)
  32       aa=REAL(f)
  33       aa=REAL(g)
  34       aa=FLOAT(f)
  35       aa=FLOOR(b)
  36       aa=FLOOR(c)
  37       aa=FLOOR(d)
  38       aa=CEILING(b)
  39       aa=CEILING(c)
  40       aa=CEILING(d)
  41       !---DEC specific type conversions (-fdec):
  42       !!aa=FLOATI(e)
  43       !!aa=FLOATJ(f)
  44       !!aa=FLOATK(g)
  45       aa=SNGL(c)
  46       aa=SNGL(d)
  47       bb=REAL(c, kind=8)
  48       bb=REAL(d, kind=8)
  49       bb=DBLE(c)
  50       bb=DBLE(d)
  51       bb=DFLOAT(g)
  52       bb=FLOOR(c)
  53       bb=FLOOR(d)
  54       bb=CEILING(c)
  55       bb=CEILING(d)
  56       cc=REAL(d, kind=10)
  57       cc=FLOOR(d)
  58       cc=CEILING(d)
  59
  60       aa=AINT(b)
  61       aa=ANINT(b)
  62       aa=AINT(c)
  63       aa=ANINT(c)
  64       aa=AINT(d)
  65       aa=ANINT(d)
  66       bb=DINT(b)
  67       bb=DNINT(b)
  68
  69       ee=INT(a, kind=2)
  70       ee=NINT(a, kind=2)
  71       ee=INT(b, kind=2)
  72       ee=NINT(b, kind=2)
  73       ee=INT(c, kind=2)
  74       ee=NINT(c, kind=2)
  75       ee=INT(d, kind=2)
  76       ee=NINT(d, kind=2)
  77       ee=INT(f, kind=2)
  78       ee=INT(g, kind=2)
  79       ee=IFIX(a)
  80       ee=IDINT(b)
  81       ee=IDNINT(b)
  82       ee=INT2(a)
  83       ee=INT2(b)
  84       ee=INT2(c)
  85       ee=INT2(d)
  86       ee=INT2(f)
  87       ee=INT2(g)
  88
  89       ff=INT(a, kind=4)
  90       ff=NINT(a, kind=4)
  91       ff=INT(b, kind=4)
  92       ff=NINT(b, kind=4)
  93       ff=INT(c, kind=4)
  94       ff=NINT(c, kind=4)
  95       ff=INT(d, kind=4)
  96       ff=NINT(d, kind=4)
  97       ff=INT(f, kind=4)
  98       ff=INT(g, kind=4)
  99       ff=IFIX(a)
 100       ff=IDINT(b)
 101       ff=IDNINT(b)
 102       !---LONG support got removed:
 103       !!ff=LONG(a)
 104       !!ff=LONG(b)
 105       !!ff=LONG(c)
 106       !!ff=LONG(d)
 107       !!ff=LONG(g)
 108
 109       gg=INT(a, kind=8)
 110       gg=NINT(a, kind=8)
 111       gg=INT(b, kind=8)
 112       gg=NINT(b, kind=8)
 113       gg=INT(c, kind=8)
 114       gg=NINT(c, kind=8)
 115       gg=INT(d, kind=8)
 116       gg=NINT(d, kind=8)
 117       gg=INT(f, kind=8)
 118       gg=INT(g, kind=8)
 119       gg=IFIX(a)
 120       gg=IDINT(b)
 121       gg=IDNINT(b)
 122       gg=INT8(a)
 123       gg=INT8(b)
 124       gg=INT8(c)
 125       gg=INT8(d)
 126       gg=INT8(g)
 127 end
 128