blob: b87034c0a67ef160f90c4e59aac2f3cc4e2f77ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
! { dg-options " -std=f95" }
program testbyte
integer(1) :: ii = 7
call foo(ii)
end program testbyte
subroutine foo(ii)
integer(1) ii
byte b ! { dg-error "BYTE type" }
b = ii
call bar(ii,b)
end subroutine foo
subroutine bar(ii,b)
integer (1) ii
byte b ! { dg-error "BYTE type" }
if (b.ne.ii) then
! print *,"Failed"
STOP 1
end if
end subroutine bar
|
