blob: 6cac4216f85d7c555a7552666f7adbefdbeacd72 (
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 "-fall-intrinsics -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"
call abort
end if
end subroutine bar
|
