Fixed allocation of coarrays to use [*]; it can't be [device] as the allocation parameter is supposed to be a size.