Subversion Repositories openrisc_2011-10-31

! PR fortran/39865

! { dg-do compile }

subroutine foo (a)

  integer(kind=4), target :: a(1:, 1:)

  integer(kind=4), pointer :: b(:, :)

  b => a

  write (*, fmt=a(1,2)) 1, 2, 3, 4, 5, 6, 7, 8

  write (*, fmt=b(1,2)) 1, 2, 3, 4, 5, 6, 7, 8

end subroutine foo

subroutine bar (a, b)

  character :: b(2,*)

  integer :: a(*)

  write (*, fmt=b) 1, 2, 3

  write (*, fmt=a) 1, 2, 3

  write (*, fmt=a(2)) 1, 2, 3

end subroutine

  interface

    subroutine foo (a)

      integer(kind=4), target :: a(:, :)

    end subroutine foo

  end interface

  integer(kind=4) :: a(2, 3)

  a = 4HXXXX

  a(2,2) = 4H (8I

  a(1,3) = 2H4)

  a(2,3) = 1H

  call foo (a(2:2,:))

end

! { dg-warning "Non-character in FORMAT tag" "FMT" { target *-*-* } 8 }

! { dg-error "Non-character assumed shape array element in FORMAT tag" "element" { target *-*-* } 8 }

! { dg-warning "Non-character in FORMAT tag" "FMT" { target *-*-* } 9 }

! { dg-error "Non-character pointer array element in FORMAT tag" "element" { target *-*-* } 9 }

! { dg-error "reference to the assumed size array" "assumed-size" { target *-*-* } 14 }

! { dg-error "reference to the assumed size array" "assumed-size" { target *-*-* } 15 }

! { dg-warning "Non-character in FORMAT tag" "FMT" { target *-*-* } 16 }

! { dg-error "Non-character assumed size array element in FORMAT tag" "element" { target *-*-* } 16 }

! { dg-warning "Hollerith constant" "const" { target *-*-* } 24 }

! { dg-warning "Conversion" "conversion" { target *-*-* } 24 }

! { dg-warning "Hollerith constant" "const" { target *-*-* } 25 }

! { dg-warning "Conversion" "conversion" { target *-*-* } 25 }

! { dg-warning "Hollerith constant" "const" { target *-*-* } 26 }

! { dg-warning "Conversion" "conversion" { target *-*-* } 26 }

! { dg-warning "Hollerith constant" "const" { target *-*-* } 27 }

! { dg-warning "Conversion" "conversion" { target *-*-* } 27 }