| c { dg-do compile } | |
| c { dg-options "-O2 -std=legacy" } | |
| LOGICAL*1 l1 | |
| LOGICAL*2 l2 | |
| LOGICAL*4 l4 | |
| INTEGER*1 i1 | |
| INTEGER*2 i2 | |
| INTEGER*4 i4 | |
| i1 = .TRUE. | |
| i2 = .TRUE. | |
| i4 = .TRUE. | |
| i1 = .FALSE. | |
| i2 = .FALSE. | |
| i4 = .FALSE. | |
| i1 = l1 | |
| i2 = l1 | |
| i4 = l1 | |
| i1 = l2 | |
| i2 = l2 | |
| i4 = l2 | |
| i1 = l4 | |
| i2 = l4 | |
| i4 = l4 | |
| l1 = i1 | |
| l2 = i1 | |
| l4 = i1 | |
| l1 = i2 | |
| l2 = i2 | |
| l4 = i2 | |
| l1 = i4 | |
| l2 = i4 | |
| l4 = i4 | |
| END | |