Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

!

!

! PR fortran/34254

! PR fortran/34254

!

!

! The character-kind parameter was not accepted.

! The character-kind parameter was not accepted.

!

!

module m

module m

  integer, parameter :: char_t = kind('a')

  integer, parameter :: char_t = kind('a')

end module m

end module m

character(1,char_t) function test1()

character(1,char_t) function test1()

  use m

  use m

  test1 = 'A'

  test1 = 'A'

end function test1

end function test1

character(len=1,kind=char_t) function test2()

character(len=1,kind=char_t) function test2()

  use m

  use m

  test2 = 'A'

  test2 = 'A'

end function test2

end function test2

character(kind=char_t,len=1) function test3()

character(kind=char_t,len=1) function test3()

  use m

  use m

  test3 = 'A'

  test3 = 'A'

end function test3

end function test3

character(1,kind=char_t) function test4()

character(1,kind=char_t) function test4()

  use m

  use m

  test4 = 'A'

  test4 = 'A'

end function test4

end function test4

! { dg-final { cleanup-modules "m" } }

! { dg-final { cleanup-modules "m" } }