mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
15 lines
563 B
Fortran
15 lines
563 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for PR36371, in which the locus for the errors pointed to
|
|
! the paramter declaration rather than the data statement.
|
|
!
|
|
! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
|
|
!
|
|
program chkdata
|
|
character(len=3), parameter :: mychar(3) = [ "abc", "def", "ghi" ]
|
|
integer, parameter :: myint(3) = [1, 2, 3]
|
|
integer :: c(2)
|
|
character(4) :: i(2)
|
|
data c / mychar(1), mychar(3) / ! { dg-error "Incompatible types in DATA" }
|
|
data i / myint(3), myint(2) / ! { dg-error "Incompatible types in DATA" }
|
|
end program chkdata
|