old-autovect-branch/gcc/testsuite/gfortran.fortran-torture/compile/implicit_1.f90

   1 ! Test implicit character declarations.
   2 ! This requires some coordination between the typespec and variable name range
   3 ! matchers to get it right.
   4 module implicit_1
   5   integer, parameter :: x = 10
   6   integer, parameter :: y = 6
   7   integer, parameter :: z = selected_int_kind(4)
   8 end module
   9 subroutine foo(n)
  10   use implicit_1
  11   ! Test various combinations with and without character length
  12   ! and type kind specifiers
  13   implicit character(len=5) (a)
  14   implicit character(n) (b)
  15   implicit character*6 (c-d)
  16   implicit character (e)
  17   implicit character(x-y) (f)
  18   implicit integer(z) (g)
  19   implicit character (z)
  20
  21   a1 = 'Hello'
  22   b1 = 'world'
  23   c1 = 'wibble'
  24   d1 = 'hmmm'
  25   e1 = 'n'
  26   f1 = 'test'
  27   g1 = 1
  28   x1 = 1.0
  29   y1 = 2.0
  30   z1 = 'A'
  31 end
  32