blob: f7cec363e83496f4876323cac3862ddc143e3840 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
! { dg-do compile }
!
! PR fortran/54370
!
! The following program was ICEing at tree-check time
! "L()" was regarded as default-kind logical.
!
! Contributed by Kirill Chilikin
!
MODULE M
CONTAINS
LOGICAL(C_BOOL) FUNCTION L() BIND(C)
USE, INTRINSIC :: ISO_C_BINDING
L = .FALSE.
END FUNCTION
LOGICAL(8) FUNCTION L2() BIND(C) ! { dg-warning "GNU Extension: LOGICAL result variable 'l2' at .1. with non-C_Bool kind in BIND.C. procedure 'l2'" }
L2 = .FALSE._8
END FUNCTION
SUBROUTINE S()
DO WHILE (L())
ENDDO
DO WHILE (L2())
ENDDO
END
END
|
