Issue 161538
Summary [flang] Inquiry on the KIND of a kind parameter of derived type failed
Labels flang:frontend
Assignees
Reporter DanielCChen
    Consider the following code:
```
type :: dt(k)
  integer(8), kind :: k
end type
type(dt(4))  :: d1
print*, d1%k%kind
end
```

Flang failed to compile the code above with
```
t.f:5:12: error: 'k' is not an object and may not be used as the base of a component reference or type parameter inquiry
  print*, d1%k%kind
             ^
```

All ifort, gfortran and XLF compile and run the code successfully. 
_______________________________________________
llvm-bugs mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs

Reply via email to